module Pipes.KeyValueCsv.Internal.Types where
import Data.Text (Text)
import Pipes
import Pipes.Group (FreeT)
newtype Delimiter = Delimiter { getDelimiter :: Char }
newtype Line m r = Line { unLine :: Producer Text m r }
deriving (Functor, Applicative, Monad)
newtype Lines m r = Lines { unLines :: FreeT (Line m) m r }
deriving (Functor, Applicative, Monad)
newtype Cell m r = Cell { unCell :: Producer Text m r }
deriving (Functor, Applicative, Monad)
newtype Cells m r = Cells { unCells :: FreeT (Cell m) m r }
deriving (Functor, Applicative, Monad)