summaryrefslogtreecommitdiff
path: root/Assistant/Threads/SanityChecker.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-05-15 17:38:22 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-05-15 21:35:56 -0400
commit0d85a42333484e1acb8e4942a619087768bc62fb (patch)
tree4c0af3adbd9d44640bc46638074c5282b197d44f /Assistant/Threads/SanityChecker.hs
parentc88dfda7e03cab4d96417518b6cfcffd54ad8f5d (diff)
rename prompt since Messages added a function by that name
Diffstat (limited to 'Assistant/Threads/SanityChecker.hs')
-rw-r--r--Assistant/Threads/SanityChecker.hs4
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