@@ -94,6 +94,7 @@ jstring_ = do
94 if backslash `B.elem` s
94 if backslash `B.elem` s
95 then decodeUtf8 <$> reparse unescape s
95 then decodeUtf8 <$> reparse unescape s
96 else return (decodeUtf8 s)
96 else return (decodeUtf8 s)
97+{-# INLINE jstring_ #-}
98reparse :: Parser a -> ByteString -> Parser a
99reparse :: Parser a -> ByteString -> Parser a
99reparse p s = case (case parse p s of {Partial k -> k ""; r -> r}) of
100reparse p s = case (case parse p s of {Partial k -> k ""; r -> r}) of