Skip to content
Snippets Groups Projects
Commit 3d61ce1e authored by Teo Camarasu's avatar Teo Camarasu
Browse files

Add attoparsec-aeson patch

parent cad0270a
No related branches found
No related tags found
1 merge request!317Add some patches
diff --git a/src/Data/Aeson/Internal/Text.hs b/src/Data/Aeson/Internal/Text.hs
index e981c94..6cccd88 100644
--- a/src/Data/Aeson/Internal/Text.hs
+++ b/src/Data/Aeson/Internal/Text.hs
@@ -8,7 +8,7 @@ import Data.ByteString (ByteString)
import qualified Data.Text as T
#if MIN_VERSION_text(2,0,0)
-import Data.Text.Array (Array (..))
+import qualified Data.Text.Array as A
import qualified Data.Text.Internal as T (Text (..))
import qualified Data.ByteString.Short.Internal as SBS
@@ -27,7 +27,7 @@ unsafeDecodeASCII :: ByteString -> T.Text
#if MIN_VERSION_text(2,0,0)
unsafeDecodeASCII bs = withBS bs $ \_fp len -> if len == 0 then T.empty else
- let !(SBS.SBS arr) = SBS.toShort bs in T.Text (ByteArray arr) 0 len
+ let !(SBS.SBS arr) = SBS.toShort bs in T.Text (A.ByteArray arr) 0 len
#else
unsafeDecodeASCII = TE.decodeLatin1
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment