diff options
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Messages.hs b/Messages.hs index ed4f3b90a..7dafa8284 100644 --- a/Messages.hs +++ b/Messages.hs @@ -54,4 +54,6 @@ showErr :: (Show a) => a -> Annex () showErr e = warning $ show e warning :: String -> Annex () -warning s = liftIO $ hPutStrLn stderr $ "git-annex: " ++ s +warning s = do + verbose $ liftIO $ putStr "\n" + liftIO $ hPutStrLn stderr $ "git-annex: " ++ s |