module Assertion ( assertByteArrayPinned , assertMutableByteArrayPinned , assertMutablePrimArrayPinned ) where import qualified Data.Primitive as PM assertMutablePrimArrayPinned :: PM.MutablePrimArray s a -> PM.MutablePrimArray s a assertMutablePrimArrayPinned :: forall s a. MutablePrimArray s a -> MutablePrimArray s a assertMutablePrimArrayPinned = MutablePrimArray s a -> MutablePrimArray s a forall a. a -> a id assertMutableByteArrayPinned :: PM.MutableByteArray s -> PM.MutableByteArray s assertMutableByteArrayPinned :: forall s. MutableByteArray s -> MutableByteArray s assertMutableByteArrayPinned = MutableByteArray s -> MutableByteArray s forall a. a -> a id assertByteArrayPinned :: PM.ByteArray -> PM.ByteArray assertByteArrayPinned :: ByteArray -> ByteArray assertByteArrayPinned = ByteArray -> ByteArray forall a. a -> a id