print a warning message when garbage is received from configlist

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