aboutsummaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2014-12-30 12:49:34 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2014-12-30 12:49:34 -0400
commit6c8393e16f5f652e53e333281ac382bddccb430c (patch)
tree47c0d6f6914615f14d7141aa14c135081b0520d2 /CmdLine.hs
parent42f7b9fdd11a6b61f35e00e958342fab0949bed7 (diff)
Run shutdown cleanup actions even if there were failures processing the command.
Amoung other fixes, this means that addurl will stage added files even if adding one of the urls fails.
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 41968a091..1d93855ce 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -53,8 +53,8 @@ dispatch fuzzyok allargs allcmds commonoptions fields header getgitrepo = do
whenM (annexDebug <$> Annex.getGitConfig) $
liftIO enableDebugOutput
startup
- performCommandAction cmd params
- shutdown $ cmdnocommit cmd
+ performCommandAction cmd params $
+ shutdown $ cmdnocommit cmd
go _flags params (Left e) = do
when fuzzy $
autocorrect =<< Git.Config.global