Fix bug in Json.Encode.encodeUgly
commit2f5ffadf5ce8bcaa7420cce83647f4b62de51806
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 6 Jul 2017, 18:50 (9 years ago)
parent372b73e
src/Json/Encode.hs+1−1
@@ -139,7 +139,7 @@ encodeUgly value =
139139 encodeEntry char (key, entry) =
140140 B.char7 char <> encodeString key <> B.char7 ':' <> encodeUgly entry
141141 in
142− encodeEntry '[' first <> mconcat (map (encodeEntry ',') rest) <> B.char7 ']'
142+ encodeEntry '{' first <> mconcat (map (encodeEntry ',') rest) <> B.char7 '}'
143143
144144 String builder ->
145145 builder