@@ -322,14 +322,14 @@ jstring_ = do
322 w <- A.peekWord8
322 w <- A.peekWord8
323 case w of
323 case w of
324 Nothing -> fail "string without end"
324 Nothing -> fail "string without end"
325− Just DOUBLE_QUOTE -> A.anyWord8 *> return txt
325+ Just DOUBLE_QUOTE -> A.anyWord8 $> txt
326 _ -> jstringSlow s
326 _ -> jstringSlow s
328jstringSlow :: B.ByteString -> Parser Text
328jstringSlow :: B.ByteString -> Parser Text
329{-# INLINE jstringSlow #-}
329{-# INLINE jstringSlow #-}
330jstringSlow s' = {-# SCC "jstringSlow" #-} do
330jstringSlow s' = {-# SCC "jstringSlow" #-} do
331 s <- A.scan startState go <* A.anyWord8
331 s <- A.scan startState go <* A.anyWord8
332− case unescapeText (s' <> s) of
332+ case unescapeText (B.append s' s) of
333 Right r -> return r
333 Right r -> return r
334 Left err -> fail $ show err
334 Left err -> fail $ show err