module Data.Conduit.Parsers.Binary.ByteOffset
( ByteOffset (..)
) where
import qualified Data.ByteString as S (ByteString)
import qualified Data.ByteString as SB hiding (ByteString, head, last, init, tail)
import Data.Word
import Data.Conduit.Parsers
import Data.Conduit.Parsers.Binary
import Data.Conduit.Parsers.GetC
import Data.Conduit.Parsers.PutS
newtype ByteOffset = ByteOffset Word64 deriving Show
instance DecodingState ByteOffset where
type DecodingToken ByteOffset = S.ByteString
decoded !i (ByteOffset !s) = ByteOffset (s + fromIntegral (SB.length i))
{-# INLINE decoded #-}
instance DecodingElemsRead ByteOffset where
decodingElemsRead (ByteOffset !s) = s
{-# INLINE decodingElemsRead #-}
instance EncodingState ByteOffset where
type EncodingToken ByteOffset = Word64
encoded !w (ByteOffset !s) = ByteOffset (s + w)
{-# INLINE encoded #-}
instance EncodingBytesWrote ByteOffset where
encodingBytesWrote (ByteOffset !s) = s
{-# INLINE encodingBytesWrote #-}