{-# 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)