diff options
Diffstat (limited to 'CmdLine/Action.hs')
-rw-r--r-- | CmdLine/Action.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CmdLine/Action.hs b/CmdLine/Action.hs index 693a6814f..b9fbf166e 100644 --- a/CmdLine/Action.hs +++ b/CmdLine/Action.hs @@ -124,7 +124,7 @@ includeCommandAction a = account =<< tryIO (callCommandAction a) account (Right False) = incerr account (Left err) = do toplevelWarning True (show err) - showEndFail + implicitMessage showEndFail incerr incerr = do Annex.incError @@ -146,8 +146,8 @@ callCommandAction' = start cleanup = stage $ status stage = (=<<) skip = return Nothing - failure = showEndFail >> return (Just False) - status r = showEndResult r >> return (Just r) + failure = implicitMessage showEndFail >> return (Just False) + status r = implicitMessage (showEndResult r) >> return (Just r) {- Do concurrent output when that has been requested. -} allowConcurrentOutput :: Annex a -> Annex a |