summaryrefslogtreecommitdiffstats
path: root/src/Data/Aeson
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/Aeson')
-rw-r--r--src/Data/Aeson/Extends.hs15
1 files changed, 15 insertions, 0 deletions
diff --git a/src/Data/Aeson/Extends.hs b/src/Data/Aeson/Extends.hs
new file mode 100644
index 0000000..d78f81d
--- /dev/null
+++ b/src/Data/Aeson/Extends.hs
@@ -0,0 +1,15 @@
+module Data.Aeson.Extends (module Data.Aeson.Extends) where
+
+import Data.Aeson as Data.Aeson.Extends
+
+import qualified Data.ByteString.Lazy as LBS
+import qualified Data.Text.Encoding.Error as TE
+import qualified Data.Text.Lazy.Encoding as LT
+
+
+eitherDecodeLenient' :: FromJSON a => LBS.ByteString -> Either String a
+eitherDecodeLenient' s =
+ either (const $ eitherDecode' $ lenientReencode s) id (eitherDecode' s)
+ where
+ lenientReencode = LT.encodeUtf8 . LT.decodeUtf8With TE.lenientDecode
+