summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-22 23:10:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-22 23:10:51 -0400
commit8e953532e27d6dee001d5ef6c9230ac03c36c335 (patch)
treebceefb9cc29e7022e5b6cae72d1388f67c4444b7 /Assistant
parentd4c3bee234817699b162fd692a0ce8aa5bdfc65b (diff)
allow annex.expireunused to be set to false, as well as to a duration
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/SanityChecker.hs3
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