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

display a message in the unlikely scenario of fsking a dead repository

Browse source
This commit is contained in:
Joey Hess 2015-11-10 14:44:58 -04:00
parent 468e52fbe3
commit 4b02af57b6
Failed to extract signature
5 changed files with 30 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Messages.hs
View file

@ -22,6 +22,7 @@ module Messages (
endResult,
toplevelWarning,
warning,
earlyWarning,
warningIO,
indent,
maybeShowJSON,
@ -124,6 +125,9 @@ toplevelWarning makeway s = warning' makeway ("git-annex: " ++ s)
warning :: String -> Annex ()
warning = warning' True . indent
earlyWarning :: String -> Annex ()
earlyWarning = warning' False
warning' :: Bool -> String -> Annex ()
warning' makeway w = do
when makeway $