Skip to content
Snippets Groups Projects
Commit 70a4c6d4 authored by sheaf's avatar sheaf
Browse files

update unordered-containers for reallyUnsafePtrEquality# change

parent 3b01c758
No related branches found
Tags 0.3
No related merge requests found
Pipeline #38343 failed
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
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