@@ -61,10 +61,10 @@ array :: V.Vector Value -> Builder
6161array v
6262 | V.null v = B.char8 '[' <> B.char8 ']'
6363 | otherwise = B.char8 '[' <>
64− encodeToByteStringBuilder (V.unsafeHead v) <>
64+ encodeToBuilder (V.unsafeHead v) <>
6565 V.foldr withComma (B.char8 ']') (V.unsafeTail v)
6666 where
67− withComma a z = B.char8 ',' <> encodeToByteStringBuilder a <> z
67+ withComma a z = B.char8 ',' <> encodeToBuilder a <> z
6868
6969object :: HMS.HashMap T.Text Value -> Builder
7070object m = case HMS.toList m of
@@ -72,7 +72,7 @@ object m = case HMS.toList m of
7272 _ -> B.char8 '{' <> B.char8 '}'
7373 where
7474 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
7676
7777string :: T.Text -> B.Builder
7878string t =