From 8e92e6e11d2b3b0bfb5ac9d68f347219493e6380 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 23 Sep 2020 17:44:40 +0200
Subject: split into library + executables

---
 src/Data/Aeson/Extends.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/Data/Aeson/Extends.hs

(limited to 'src/Data/Aeson/Extends.hs')

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
+
-- 
cgit v1.2.3