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

allow annex.expireunused to be set to false, as well as to a duration

Browse source
This commit is contained in:
Joey Hess 2014-01-22 23:10:51 -04:00
parent ee5bb374bb
commit 489972c035
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Threads/SanityChecker.hs
View file

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