git.iko.soy/elk
on master help sign in
Fix bug in Json.Encode.encodeUgly
2f5ffadEvan Czaplicki
src/Json/Encode.hs+1−1
compare with master
unifiedsplit
@@ -139,7 +139,7 @@ encodeUgly value =
139 encodeEntry char (key, entry) =
139 encodeEntry char (key, entry) =
140 B.char7 char <> encodeString key <> B.char7 ':' <> encodeUgly entry
140 B.char7 char <> encodeString key <> B.char7 ':' <> encodeUgly entry
141 in
141 in
142− encodeEntry '[' first <> mconcat (map (encodeEntry ',') rest) <> B.char7 ']'
142+ encodeEntry '{' first <> mconcat (map (encodeEntry ',') rest) <> B.char7 '}'
143
143
144 String builder ->
144 String builder ->
145 builder
145 builder