Commit 70a4c6d4 authored by sheaf's avatar sheaf
Browse files

update unordered-containers for reallyUnsafePtrEquality# change

parent 3b01c758
Pipeline #38343 failed with stage
in 131 minutes and 10 seconds
diff --git a/Data/HashMap/Internal/Array.hs b/Data/HashMap/Internal/Array.hs
index 97e6015..cb85be4 100644
--- a/Data/HashMap/Internal/Array.hs
+++ b/Data/HashMap/Internal/Array.hs
@@ -209,7 +209,12 @@ instance Show a => Show (Array a) where
-- Array wrappers, but it's still slightly bogus.
unsafeSameArray :: Array a -> Array b -> Bool
unsafeSameArray (Array xs) (Array ys) =
- tagToEnum# (unsafeCoerce# reallyUnsafePtrEquality# xs ys)
+ tagToEnum#
+#if MIN_VERSION_GHC(9,3,0)
+ (reallyUnsafePtrEquality# xs ys)
+#else
+ (unsafeCoerce# reallyUnsafePtrEquality# xs ys)
+#endif
sameArray1 :: (a -> b -> Bool) -> Array a -> Array b -> Bool
sameArray1 eq !xs0 !ys0
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment