diff options
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Messages.hs b/Messages.hs index 63c628108..d79c91aa0 100644 --- a/Messages.hs +++ b/Messages.hs @@ -23,6 +23,7 @@ module Messages ( showEndResult, showErr, warning, + warningIO, fileNotFound, indent, maybeShowJSON, @@ -158,6 +159,12 @@ warning' w = do hFlush stdout hPutStrLn stderr w +warningIO :: String -> IO () +warningIO w = do + putStr "\n" + hFlush stdout + hPutStrLn stderr w + {- Displays a warning one time about a file the user specified not existing. -} fileNotFound :: FilePath -> Annex () fileNotFound file = do |