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 = forall a. a -> a id assertMutableByteArrayPinned :: PM.MutableByteArray s -> PM.MutableByteArray s assertMutableByteArrayPinned :: forall s. MutableByteArray s -> MutableByteArray s assertMutableByteArrayPinned = forall a. a -> a id assertByteArrayPinned :: PM.ByteArray -> PM.ByteArray assertByteArrayPinned :: ByteArray -> ByteArray assertByteArrayPinned = forall a. a -> a id