aboutsummaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-05 14:58:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-05 14:58:33 -0400
commitd31b84c777b6ba7158be8947fc2236b2a15e29bb (patch)
tree737c18d77f4f627efc7b0db5efa8d579e6026c72 /CmdLine.hs
parent82eb082ab9a33713ed1ec3674be2b95f9b81d861 (diff)
better display of thrown errors
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 85423e5e8..46b980fbc 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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