mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
Download patch file Download diff file Expand all files Collapse all files

3
Limit.hs
View file

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