diff options
Diffstat (limited to 'Messages/Internal.hs')
| -rw-r--r-- | Messages/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Messages/Internal.hs b/Messages/Internal.hs index e5b32650e..42ad14d51 100644 --- a/Messages/Internal.hs +++ b/Messages/Internal.hs @@ -62,7 +62,7 @@ outputJSON jsonbuilder s = case outputType s of outputError :: String -> Annex () outputError msg = withMessageState $ \s -> case (outputType s, jsonBuffer s) of (JSONOutput jsonoptions, Just jb) | jsonErrorMessages jsonoptions -> - let jb' = Just (JSON.addErrorMessage [msg] jb) + let jb' = Just (JSON.addErrorMessage (lines msg) jb) in Annex.changeState $ \st -> st { Annex.output = s { jsonBuffer = jb' } } _ |