update for Duration type change

1 files changed, 2 insertions, 1 deletions

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