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