diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-19 12:55:40 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-19 12:55:40 -0400 |
commit | d23fc22f0e17c95765f940f81f733f9580e19107 (patch) | |
tree | c9d4f075f105cc5ca7d9e77338684baafa02fa42 /Core.hs | |
parent | 2ea589e117bcc36ee613454ffb52b8e52cc96bc9 (diff) |
less verbose failures seem better here
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -104,7 +104,6 @@ showLongNote s = do showEndOk :: Annex () showEndOk = do liftIO $ putStrLn " ok" -showEndFail :: String -> String -> Annex () -showEndFail command file = do - liftIO $ putStrLn "" - liftIO $ hPutStrLn stderr $ command ++ " " ++ file ++ " failed" +showEndFail :: Annex () +showEndFail = do + liftIO $ putStrLn " failed" |