diff options
| author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 17:44:40 +0200 |
|---|---|---|
| committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 17:44:40 +0200 |
| commit | 8e92e6e11d2b3b0bfb5ac9d68f347219493e6380 (patch) | |
| tree | 6484ca42d85ca89475e922f7b45039c116ebbf97 /Data/Aeson | |
| parent | 6a6ad3aecd53ffd89101a0dee2b4ea576d4964d4 (diff) | |
split into library + executables
Diffstat (limited to 'Data/Aeson')
| -rw-r--r-- | Data/Aeson/Extends.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/Data/Aeson/Extends.hs b/Data/Aeson/Extends.hs deleted file mode 100644 index d78f81d..0000000 --- a/Data/Aeson/Extends.hs +++ /dev/null @@ -1,15 +0,0 @@ -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 - |