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

rename prompt since Messages added a function by that name

Browse source
This commit is contained in:
Joey Hess 2017-05-15 17:38:22 -04:00
parent 18b9a4b802
commit 44baa7b306
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/SanityChecker.hs
View file

@ -257,9 +257,9 @@ checkOldUnused urlrenderer = go =<< annexExpireUnused <$> liftAnnex Annex.getGit
where where
go (Just Nothing) = noop go (Just Nothing) = noop
go (Just (Just expireunused)) = expireUnused (Just expireunused) 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 #ifdef WITH_WEBAPP
do do
button <- mkAlertButton True (T.pack "Configure") urlrenderer ConfigUnusedR button <- mkAlertButton True (T.pack "Configure") urlrenderer ConfigUnusedR