Improve parser performance almost 2x for unescaped text.

ozataman · Jan 27, 2011 · 79f192c · 79f192c
1 parent 3568e5e
commit 79f192c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Data/Aeson/Parser.hs b/Data/Aeson/Parser.hs
@@ -80,7 +80,9 @@ jstring_ = do
                                         then Nothing
                                         else Just (c == backslash)
   _ <- A.word8 doubleQuote
-  (decodeUtf8 . B.concat) <$> reparse unescape s
+  if backslash `B.elem` s
+    then (decodeUtf8 . B.concat) <$> reparse unescape s
+    else return (decodeUtf8 s)
 
 reparse :: Parser a -> ByteString -> Parser a
 reparse p s = case (case parse p s of {Partial k -> k ""; r -> r}) of