Commit 0c66fcb8 authored by Steffen Michels's avatar Steffen Michels

make definition of Internal.EngineTasks.timeout.lesser complete

parent 2cf17589
Pipeline #20006 passed with stage
in 4 minutes and 44 seconds
......@@ -34,8 +34,8 @@ timeout mt iworld = case read taskEvents EmptyContext iworld of
(Error _,iworld) = (Just 500,iworld) //Keep retrying, but not too fast
where
lesser (Just x) (Just y) = x < y
lesser (Just _) Nothing = True
lesser Nothing Nothing = False
lesser (Just _) Nothing = True
lesser _ _ = False
getTimeoutFromClock :: Timespec (Map SDSNotifyRequest Timespec) -> [Maybe Timeout]
getTimeoutFromClock now requests = getTimeoutFromClock` <$> 'DM'.toList requests
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment