diff --git a/src/Data/CSV/Sip.hs b/src/Data/CSV/Sip.hs index 5cdadf6..f7522bd 100644 --- a/src/Data/CSV/Sip.hs +++ b/src/Data/CSV/Sip.hs @@ -35,8 +35,6 @@ module Data.CSV.Sip ( -- ** Write an entire CSV file writeCSV, writeRawCSV, - writeCSVFromStream, - writeRawCSVFromStream, -- * Conduits -- ** Encoding encodeCSV, @@ -127,28 +125,6 @@ writeRawCSV -> m () writeRawCSV file csv = runConduit $ encodeRawCSV csv .| sinkFile file --- | Write a CSV file from a stream of Text-based rows -writeCSVFromStream - :: MonadResource m - => FilePath - -- ^ the path to the file to write to - -> ConduitT () [T.Text] m () - -- ^ the source conduit - -> m () -writeCSVFromStream file src = runConduit $ - src .| encodeRows .| sinkFile file - --- | Write a CSV file from a stream of ByteString-based rows -writeRawCSVFromStream - :: MonadResource m - => FilePath - -- ^ the path to the file to write to - -> ConduitT () [BS.ByteString] m () - -- ^ the source conduit - -> m () -writeRawCSVFromStream file src = runConduit $ - src .| encodeRawRows .| sinkFile file - -- | encode an entire CSV file encodeCSV :: Monad m