diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-22 23:10:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-22 23:10:51 -0400 |
| commit | 8e953532e27d6dee001d5ef6c9230ac03c36c335 (patch) | |
| tree | bceefb9cc29e7022e5b6cae72d1388f67c4444b7 /Assistant/Threads | |
| parent | d4c3bee234817699b162fd692a0ce8aa5bdfc65b (diff) | |
allow annex.expireunused to be set to false, as well as to a duration
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/SanityChecker.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index 07d46ff84..bdde1726d 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -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 |