Commit 6f3dc402 authored by Steffen Michels's avatar Steffen Michels

fix definition of iTasks.Engine.lesser; was already done in...

fix definition of iTasks.Engine.lesser; was already done in 0c66fcb8 but got lost somehow...
parent e204a6c4
Pipeline #20562 passed with stage
in 4 minutes and 46 seconds
......@@ -258,8 +258,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 = map 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