update for Duration type change
This commit is contained in:
parent
51c44b26aa
commit
2b6747b6a2
2 changed files with 3 additions and 2 deletions
3
Limit.hs
3
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue