module Data.Conduit.Parsers.Text
( DecodingLinesRead (..)
, DecodingColumnsRead (..)
, DecodingTextRead
) where
import Data.Word
import Data.Conduit.Parsers
import Data.Conduit.Parsers.GetC
class DecodingLinesRead s where
decodingLinesRead :: s -> Word64
class DecodingColumnsRead s where
decodingColumnsRead :: s -> Word64
class (DecodingElemsRead s, DecodingLinesRead s, DecodingColumnsRead s) => DecodingTextRead s where
instance (DecodingElemsRead s, DecodingLinesRead s, DecodingColumnsRead s) => DecodingTextRead s where
instance (DecodingState s, DecodingLinesRead s) => DecodingLinesRead (Decoding s i) where
decodingLinesRead = decodingLinesRead . decodingRead
{-# INLINE decodingLinesRead #-}
instance (DecodingState s, DecodingColumnsRead s) => DecodingColumnsRead (Decoding s i) where
decodingColumnsRead = decodingColumnsRead . decodingRead
{-# INLINE decodingColumnsRead #-}