print a warning message when garbage is received from configlist

This commit is contained in:
Joey Hess 2013-03-04 23:27:18 -04:00
parent 9769235d6b
commit ff6ce2bc15
2 changed files with 16 additions and 2 deletions

View file

@ -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