diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-10 14:44:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-10 14:44:58 -0400 |
| commit | 511fb47fd7728dbdc01c353f6cba2dfe8433dd7b (patch) | |
| tree | 58d29b1bf43a98a5ce767d32c79f2b9440647805 /Messages.hs | |
| parent | dacadaae32183b2501bda42d38ba4cae8eeff12b (diff) | |
display a message in the unlikely scenario of fsking a dead repository
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Messages.hs b/Messages.hs index 650e6162a..a49f20711 100644 --- a/Messages.hs +++ b/Messages.hs @@ -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 $ |