mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

update for Duration type change

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Fsck.hs
View file

@ -104,7 +104,7 @@ withIncremental = withValue $ do
Nothing -> noop Nothing -> noop
Just started -> do Just started -> do
now <- liftIO getPOSIXTime now <- liftIO getPOSIXTime
when (now - realToFrac started >= delta) when (now - realToFrac started >= durationToPOSIXTime delta)
resetStartTime resetStartTime
return True return True

3
Limit.hs
View file

@ -238,7 +238,8 @@ limitSize vs s = case readSize dataUnits s of
addTimeLimit :: String -> Annex () addTimeLimit :: String -> Annex ()
addTimeLimit s = do 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 start <- liftIO getPOSIXTime
let cutoff = start + seconds let cutoff = start + seconds
addLimit $ Right $ const $ const $ do addLimit $ Right $ const $ const $ do