We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 56331cd commit f90e38cCopy full SHA for f90e38c
containers/src/Utils/Containers/Internal/PtrEquality.hs
@@ -14,7 +14,7 @@ import Unsafe.Coerce ( unsafeCoerce )
14
#if __GLASGOW_HASKELL__ < 707
15
import GHC.Exts ( (==#) )
16
#else
17
-import GHC.Exts ( isTrue# )
+import GHC.Exts ( Int#, isTrue# )
18
#endif
19
20
@@ -35,7 +35,7 @@ ptrEq x y = reallyUnsafePtrEquality# x y ==# 1#
35
hetPtrEq x y = unsafeCoerce reallyUnsafePtrEquality# x y ==# 1#
36
37
ptrEq x y = isTrue# (reallyUnsafePtrEquality# x y)
38
-hetPtrEq x y = isTrue# (unsafeCoerce reallyUnsafePtrEquality# x y)
+hetPtrEq x y = isTrue# (unsafeCoerce (reallyUnsafePtrEquality# :: x -> x -> Int#) x y)
39
40
41
0 commit comments