allow annex.expireunused to be set to false, as well as to a duration
This commit is contained in:
parent
ee5bb374bb
commit
489972c035
2 changed files with 5 additions and 3 deletions
|
@ -232,7 +232,8 @@ oneDay = 24 * oneHour
|
|||
checkOldUnused :: UrlRenderer -> Assistant ()
|
||||
checkOldUnused urlrenderer = go =<< annexExpireUnused <$> liftAnnex Annex.getGitConfig
|
||||
where
|
||||
go (Just expireunused) = do
|
||||
go (Just Nothing) = noop
|
||||
go (Just (Just expireunused)) = do
|
||||
m <- liftAnnex $ readUnusedLog ""
|
||||
now <- liftIO getPOSIXTime
|
||||
let duration = durationToPOSIXTime expireunused
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue