@@ -322,14 +322,14 @@ jstring_ = do
322322 w <- A.peekWord8
323323 case w of
324324 Nothing -> fail "string without end"
325− Just DOUBLE_QUOTE -> A.anyWord8 *> return txt
325+ Just DOUBLE_QUOTE -> A.anyWord8 $> txt
326326 _ -> jstringSlow s
327327
328328jstringSlow :: B.ByteString -> Parser Text
329329{-# INLINE jstringSlow #-}
330330jstringSlow s' = {-# SCC "jstringSlow" #-} do
331331 s <- A.scan startState go <* A.anyWord8
332− case unescapeText (s' <> s) of
332+ case unescapeText (B.append s' s) of
333333 Right r -> return r
334334 Left err -> fail $ show err
335335 where