diff options
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 $ |