diff options
Diffstat (limited to 'Limit.hs')
-rw-r--r-- | Limit.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |