mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

less verbose failures seem better here

Browse source
This commit is contained in:
Joey Hess 2010-10-19 12:55:40 -04:00
parent 2ea589e117
commit d23fc22f0e
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Core.hs
View file

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