on master help sign in
Encode JSON objects and arrays in the right order
10164beEvan Czaplicki
src/Json/Encode.hs+2−2
@@ -203,10 +203,10 @@ encodeSequence open close encodeEntry indent first rest =
203 newline <> B.byteString indent <> close
203 newline <> B.byteString indent <> close
204
204
205 addValue field builder =
205 addValue field builder =
206− builder
207− <> commaNewline
206+ commaNewline
208 <> newIndentBuilder
207 <> newIndentBuilder
209 <> encodeEntry newIndent field
208 <> encodeEntry newIndent field
209+ <> builder
210 in
210 in
211 open
211 open
212 <> newIndentBuilder
212 <> newIndentBuilder