Skip to content

Commit f90e38c

Browse files
sheaftreeowl
authored andcommitted
Fix for reallyUnsafePtrEquality# change
1 parent 56331cd commit f90e38c

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

containers/src/Utils/Containers/Internal/PtrEquality.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ import Unsafe.Coerce ( unsafeCoerce )
1414
#if __GLASGOW_HASKELL__ < 707
1515
import GHC.Exts ( (==#) )
1616
#else
17-
import GHC.Exts ( isTrue# )
17+
import GHC.Exts ( Int#, isTrue# )
1818
#endif
1919
#endif
2020

@@ -35,7 +35,7 @@ ptrEq x y = reallyUnsafePtrEquality# x y ==# 1#
3535
hetPtrEq x y = unsafeCoerce reallyUnsafePtrEquality# x y ==# 1#
3636
#else
3737
ptrEq x y = isTrue# (reallyUnsafePtrEquality# x y)
38-
hetPtrEq x y = isTrue# (unsafeCoerce reallyUnsafePtrEquality# x y)
38+
hetPtrEq x y = isTrue# (unsafeCoerce (reallyUnsafePtrEquality# :: x -> x -> Int#) x y)
3939
#endif
4040

4141
#else

0 commit comments

Comments
 (0)