update for Duration type change

This commit is contained in:
Joey Hess 2013-10-08 17:36:55 -04:00
parent 51c44b26aa
commit 2b6747b6a2
2 changed files with 3 additions and 2 deletions

View file

@ -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