diff options
Diffstat (limited to 'libraries/ghc-prim/GHC/Prim')
| -rw-r--r-- | libraries/ghc-prim/GHC/Prim/PtrEq.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libraries/ghc-prim/GHC/Prim/PtrEq.hs b/libraries/ghc-prim/GHC/Prim/PtrEq.hs index 34285a879a..49e78b1713 100644 --- a/libraries/ghc-prim/GHC/Prim/PtrEq.hs +++ b/libraries/ghc-prim/GHC/Prim/PtrEq.hs @@ -30,6 +30,7 @@ module GHC.Prim.PtrEq sameTVar#, sameMVar#, sameIOPort#, + samePromptTag#, eqStableName# ) where @@ -113,6 +114,10 @@ sameMVar# = reallyUnsafePtrEquality# sameIOPort# :: IOPort# s a -> IOPort# s a -> Int# sameIOPort# = reallyUnsafePtrEquality# +-- | Compare the underlying pointers of two 'PromptTag#'s. +samePromptTag# :: PromptTag# a -> PromptTag# a -> Int# +samePromptTag# = reallyUnsafePtrEquality# + -- Note [Comparing stable names] -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -- A StableName# is actually a pointer to a stable name object (SNO) |