rethrow ExitStatus exceptions

Several git-annex commands want to exit right away, but that's an
exception, which is caught due to 39fbaa0682.
So, re-throw it.

CmdLine/Action.hs

@@ -131,10 +131,12 @@ includeCommandAction a = account =<< tryNonAsync (callCommandAction a)
   where
 	account (Right True) = return True
 	account (Right False) = incerr
-	account (Left err) = do
-		toplevelWarning True (show err)
-		implicitMessage showEndFail
-		incerr
+	account (Left err) = case fromException err of
+		Just exitcode -> liftIO $ exitWith exitcode
+		Nothing -> do
+			toplevelWarning True (show err)
+			implicitMessage showEndFail
+			incerr
 	incerr = do
 		Annex.incError
 		return False