update for Duration type change
This commit is contained in:
parent
51c44b26aa
commit
2b6747b6a2
2 changed files with 3 additions and 2 deletions
|
@ -104,7 +104,7 @@ withIncremental = withValue $ do
|
|||
Nothing -> noop
|
||||
Just started -> do
|
||||
now <- liftIO getPOSIXTime
|
||||
when (now - realToFrac started >= delta)
|
||||
when (now - realToFrac started >= durationToPOSIXTime delta)
|
||||
resetStartTime
|
||||
return True
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue