{-# LANGUAGE BangPatterns, MagicHash, Unsafe #-}
module Data.RangeSet.Internal.Unsafe (ptrEq) where

import Prelude
import GHC.Exts (reallyUnsafePtrEquality#, isTrue#)

{-# INLINE ptrEq #-}
ptrEq :: a -> a -> Bool
ptrEq :: forall a. a -> a -> Bool
ptrEq !a
x !a
y = Int# -> Bool
isTrue# (forall a. a -> a -> Int#
reallyUnsafePtrEquality# a
x a
y)