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

better display of thrown errors

Browse source
This commit is contained in:
Joey Hess 2011-07-05 14:58:33 -04:00
parent 82eb082ab9
commit d31b84c777
4 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CmdLine.hs
View file

@ -87,7 +87,9 @@ tryRun' state errnum (a:as) = do
a
case result of
Left err -> do
Annex.eval state $ showErr err
Annex.eval state $ do
showEndFail
showErr err
tryRun' state (errnum + 1) as
Right (True,state') -> tryRun' state' errnum as
Right (False,state') -> tryRun' state' (errnum + 1) as