Skip to content

GitLab

Commit 0c66fcb8 authored by Steffen Michels's avatar Steffen Michels
1 Browse files
Options

make definition of Internal.EngineTasks.timeout.lesser complete

parent 2cf17589
Pipeline #20006 passed with stage
    in 4 minutes and 44 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    Libraries/iTasks/Internal/EngineTasks.icl
    View file @ 0c66fcb8
    ...@@ -34,8 +34,8 @@ timeout mt iworld = case read taskEvents EmptyContext iworld of ...@@ -34,8 +34,8 @@ timeout mt iworld = case read taskEvents EmptyContext iworld of
    (Error _,iworld) = (Just 500,iworld) //Keep retrying, but not too fast (Error _,iworld) = (Just 500,iworld) //Keep retrying, but not too fast
    where where
    lesser (Just x) (Just y) = x < y lesser (Just x) (Just y) = x < y
    lesser (Just _) Nothing = True lesser (Just _) Nothing = True
    lesser Nothing Nothing = False lesser _ _ = False
    getTimeoutFromClock :: Timespec (Map SDSNotifyRequest Timespec) -> [Maybe Timeout] getTimeoutFromClock :: Timespec (Map SDSNotifyRequest Timespec) -> [Maybe Timeout]
    getTimeoutFromClock now requests = getTimeoutFromClock` <$> 'DM'.toList requests 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