Skip to content

Commit 0284cf4

Browse files
committed
Use reallyUnsafePtrEquality# for compatibility
...with GHC < 9.4.
1 parent b800f86 commit 0284cf4

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Data/HashMap/Internal.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1869,7 +1869,7 @@ difference = go 0
18691869
Empty -> goDA i (i1 + 1) nextB1' bResult (nChanges + 1)
18701870
st -> do
18711871
A.write mary i st
1872-
let same = I# (Exts.reallyUnsafePtrEquality st st1)
1872+
let same = I# (Exts.reallyUnsafePtrEquality# st st1)
18731873
let nChanges' = nChanges + (1 - same)
18741874
goDA (i + 1) (i1 + 1) nextB1' (bResult .|. m) nChanges'
18751875
where

0 commit comments

Comments
 (0)