@@ -94,7 +94,7 @@ unquoted t = TE.encodeUtf8BuilderEscaped escapeAscii t
9494-- | Encode a JSON string.
9595string :: String -> Builder
9696string t = B.char8 '"' <> foldMap go t <> B.char8 '"'
97− where go c | c > '\x7f' = B.charUtf8 c
97+ where go c | c > '\x7f' = BP.primBounded BP.charUtf8 c
9898 | otherwise = BP.primBounded escapeAscii (c2w c)
9999{-# INLINE string #-}
100100