@@ -61,10 +61,10 @@ array :: V.Vector Value -> Builder
62 | V.null v = B.char8 '[' <> B.char8 ']'
62 | V.null v = B.char8 '[' <> B.char8 ']'
63 | otherwise = B.char8 '[' <>
63 | otherwise = B.char8 '[' <>
64− encodeToByteStringBuilder (V.unsafeHead v) <>
64+ encodeToBuilder (V.unsafeHead v) <>
65 V.foldr withComma (B.char8 ']') (V.unsafeTail v)
65 V.foldr withComma (B.char8 ']') (V.unsafeTail v)
67− withComma a z = B.char8 ',' <> encodeToByteStringBuilder a <> z
67+ withComma a z = B.char8 ',' <> encodeToBuilder a <> z
69object :: HMS.HashMap T.Text Value -> Builder
69object :: HMS.HashMap T.Text Value -> Builder
70object m = case HMS.toList m of
70object m = case HMS.toList m of
@@ -72,7 +72,7 @@ object m = case HMS.toList m of
72 _ -> B.char8 '{' <> B.char8 '}'
72 _ -> B.char8 '{' <> B.char8 '}'
74 withComma a z = B.char8 ',' <> one a <> z
74 withComma a z = B.char8 ',' <> one a <> z
75− one (k,v) = string k <> B.char8 ':' <> encodeToByteStringBuilder v
75+ one (k,v) = string k <> B.char8 ':' <> encodeToBuilder v
77string :: T.Text -> B.Builder
77string :: T.Text -> B.Builder