diff --git a/Libraries/iTasks/Internal/EngineTasks.icl b/Libraries/iTasks/Internal/EngineTasks.icl index 6e87d3dc92e9987a3f15728dfe22ad3ec8ab7eba..d821144bb47e118f86d7b189dc829bf459bccaaa 100644 --- a/Libraries/iTasks/Internal/EngineTasks.icl +++ b/Libraries/iTasks/Internal/EngineTasks.icl @@ -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