update for Duration type change

2 files changed, 3 insertions, 2 deletions

diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 980a1e3cf..3b89c550c 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -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
 
diff --git a/Limit.hs b/Limit.hs
index 71dbce168..826b5e72b 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -238,7 +238,8 @@ limitSize vs s = case readSize dataUnits s of
 
 addTimeLimit :: String -> Annex ()
 addTimeLimit s = do
-	let seconds = fromMaybe (error "bad time-limit") $ parseDuration s
+	let seconds = maybe (error "bad time-limit") durationToPOSIXTime $
+		parseDuration s
 	start <- liftIO getPOSIXTime
 	let cutoff = start + seconds
 	addLimit $ Right $ const $ const $ do