Skip to content
Snippets Groups Projects
Commit dc686111 authored by Ryan Scott's avatar Ryan Scott
Browse files

Add aeson-2.2.0.0 patch

parent 89872aa9
No related branches found
No related tags found
1 merge request!315Add aeson-2.2.0.0 patch
...@@ -135,7 +135,7 @@ esac ...@@ -135,7 +135,7 @@ esac
# These are packages which we don't have patches for but want to test anyways. # These are packages which we don't have patches for but want to test anyways.
extra_package lens 5.2.2 extra_package lens 5.2.2
extra_package optics 0.4.2 extra_package optics 0.4.2
extra_package aeson 2.1.2.1 extra_package aeson 2.2.0.0
extra_package criterion 1.6.0.0 extra_package criterion 1.6.0.0
extra_package scotty 0.12.1 extra_package scotty 0.12.1
extra_package generic-lens 2.2.1.0 extra_package generic-lens 2.2.1.0
......
diff --git a/src/Data/Aeson/Internal/Text.hs b/src/Data/Aeson/Internal/Text.hs
index e981c94..48a24b6 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 TArray
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 (TArray.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