diff options
| -rw-r--r-- | Assistant/Threads/SanityChecker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index 816969511..43812e5d4 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -257,9 +257,9 @@ checkOldUnused urlrenderer = go =<< annexExpireUnused <$> liftAnnex Annex.getGit where go (Just Nothing) = noop go (Just (Just expireunused)) = expireUnused (Just expireunused) - go Nothing = maybe noop prompt =<< describeUnusedWhenBig + go Nothing = maybe noop promptconfig =<< describeUnusedWhenBig - prompt msg = + promptconfig msg = #ifdef WITH_WEBAPP do button <- mkAlertButton True (T.pack "Configure") urlrenderer ConfigUnusedR |