aboutsummaryrefslogtreecommitdiff
path: root/Messages/JSON.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2018-02-19 15:39:52 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2018-02-19 15:39:52 -0400
commitbadc2b0ff025846e9b1f74033e156cdc59f8c383 (patch)
tree02e0f7c8835c9f8c5ea034426f7e29be5e6f20cc /Messages/JSON.hs
parent5d866ad84a4fda2826eeed25d08526d7cde800b4 (diff)
fix build
Diffstat (limited to 'Messages/JSON.hs')
-rw-r--r--Messages/JSON.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Messages/JSON.hs b/Messages/JSON.hs
index 48e48ec73..897eb8cbf 100644
--- a/Messages/JSON.hs
+++ b/Messages/JSON.hs
@@ -87,10 +87,11 @@ finalize jsonoptions o
addErrorMessage :: [String] -> Object -> Object
addErrorMessage msg o =
- HM.insertWith combinearray "error-messages" (Array $ V.fromList msg ) o
+ HM.insertWith combinearray "error-messages" v o
where
combinearray (Array new) (Array old) = Array (old <> new)
combinearray new _old = new
+ v = Array $ V.fromList $ map (String . T.pack) msg
note :: String -> JSONBuilder
note _ Nothing = Nothing