{-# LANGUAGE Unsafe #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE KindSignatures #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE PolyKinds #-} module GHC.Prim.PtrEq ( reallyUnsafePtrEquality, unsafePtrEquality#, sameArray#, sameMutableArray#, sameSmallArray#, sameSmallMutableArray#, sameByteArray#, sameMutableByteArray#, sameMutVar#, sameTVar#, sameMVar#, sameIOPort#, samePromptTag#, eqStableName# ) where import GHC.Prim import GHC.Types ( RuntimeRep(BoxedRep), UnliftedType ) default () reallyUnsafePtrEquality :: a -> a -> Int# reallyUnsafePtrEquality :: forall a. a -> a -> Int# reallyUnsafePtrEquality = a -> a -> Int# forall a b. a -> b -> Int# reallyUnsafePtrEquality# unsafePtrEquality# :: forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# :: forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# = a -> b -> Int# forall a b. a -> b -> Int# reallyUnsafePtrEquality# sameArray# :: forall {l} (a :: TYPE (BoxedRep l)). Array# a -> Array# a -> Int# sameArray# :: forall a. Array# a -> Array# a -> Int# sameArray# = Array# a -> Array# a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameMutableArray# :: forall {l} s (a :: TYPE (BoxedRep l)). MutableArray# s a -> MutableArray# s a -> Int# sameMutableArray# :: forall s a. MutableArray# s a -> MutableArray# s a -> Int# sameMutableArray# = MutableArray# s a -> MutableArray# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameSmallArray# :: forall {l} (a :: TYPE (BoxedRep l)). SmallArray# a -> SmallArray# a -> Int# sameSmallArray# :: forall a. SmallArray# a -> SmallArray# a -> Int# sameSmallArray# = SmallArray# a -> SmallArray# a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameSmallMutableArray# :: forall {l} s (a :: TYPE (BoxedRep l)). SmallMutableArray# s a -> SmallMutableArray# s a -> Int# sameSmallMutableArray# :: forall s a. SmallMutableArray# s a -> SmallMutableArray# s a -> Int# sameSmallMutableArray# = SmallMutableArray# s a -> SmallMutableArray# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameByteArray# :: ByteArray# -> ByteArray# -> Int# sameByteArray# :: ByteArray# -> ByteArray# -> Int# sameByteArray# = ByteArray# -> ByteArray# -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameMutableByteArray# :: MutableByteArray# s -> MutableByteArray# s -> Int# sameMutableByteArray# :: forall s. MutableByteArray# s -> MutableByteArray# s -> Int# sameMutableByteArray# = MutableByteArray# s -> MutableByteArray# s -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameMutVar# :: forall {l} s (a :: TYPE (BoxedRep l)). MutVar# s a -> MutVar# s a -> Int# sameMutVar# :: forall s a. MutVar# s a -> MutVar# s a -> Int# sameMutVar# = MutVar# s a -> MutVar# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameTVar# :: forall {l} s (a :: TYPE (BoxedRep l)). TVar# s a -> TVar# s a -> Int# sameTVar# :: forall s a. TVar# s a -> TVar# s a -> Int# sameTVar# = TVar# s a -> TVar# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameMVar# :: forall {l} s (a :: TYPE (BoxedRep l)). MVar# s a -> MVar# s a -> Int# sameMVar# :: forall s a. MVar# s a -> MVar# s a -> Int# sameMVar# = MVar# s a -> MVar# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# sameIOPort# :: forall {l} s (a :: TYPE (BoxedRep l)). IOPort# s a -> IOPort# s a -> Int# sameIOPort# :: forall s a. IOPort# s a -> IOPort# s a -> Int# sameIOPort# = IOPort# s a -> IOPort# s a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# samePromptTag# :: forall a. PromptTag# a -> PromptTag# a -> Int# samePromptTag# :: forall a. PromptTag# a -> PromptTag# a -> Int# samePromptTag# = PromptTag# a -> PromptTag# a -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality# eqStableName# :: forall {k} {l} (a :: TYPE (BoxedRep k)) (b :: TYPE (BoxedRep l)) . StableName# a -> StableName# b -> Int# eqStableName# :: forall a b. StableName# a -> StableName# b -> Int# eqStableName# = StableName# a -> StableName# b -> Int# forall (a :: UnliftedType) (b :: UnliftedType). a -> b -> Int# unsafePtrEquality#
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4