diff options
author | 2018-02-19 15:39:52 -0400 | |
---|---|---|
committer | 2018-02-19 15:39:52 -0400 | |
commit | badc2b0ff025846e9b1f74033e156cdc59f8c383 (patch) | |
tree | 02e0f7c8835c9f8c5ea034426f7e29be5e6f20cc /Messages/JSON.hs | |
parent | 5d866ad84a4fda2826eeed25d08526d7cde800b4 (diff) |
fix build
Diffstat (limited to 'Messages/JSON.hs')
-rw-r--r-- | Messages/JSON.hs | 3 |
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 |