{-# LANGUAGE DuplicateRecordFields #-}
module Data.Primitive.ByteArray.Offset
(
ByteArrayOffset (..)
, MutableByteArrayOffset (..)
) where
import Data.Primitive (ByteArray, MutableByteArray)
data ByteArrayOffset = ByteArrayOffset
{ ByteArrayOffset -> ByteArray
array :: {-# UNPACK #-} !ByteArray
, ByteArrayOffset -> Int
offset :: {-# UNPACK #-} !Int
}
data MutableByteArrayOffset s = MutableByteArrayOffset
{ forall s. MutableByteArrayOffset s -> MutableByteArray s
array :: {-# UNPACK #-} !(MutableByteArray s)
, forall s. MutableByteArrayOffset s -> Int
offset :: {-# UNPACK #-} !Int
}