jlamothe/csv-sip
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented slurpRawLabelledCSV

This commit is contained in:
Jonathan Lamothe 2022-04-21 22:27:03 -04:00
parent 51784123cd
commit 724dfe0345
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/CSV/Sip.hs
View File

@ -30,6 +30,7 @@ module Data.CSV.Sip (
slurpCSV, slurpCSV,
slurpRawCSV, slurpRawCSV,
slurpLabelledCSV, slurpLabelledCSV,
slurpRawLabelledCSV,
-- * Conduits -- * Conduits
labelFields, labelFields,
decodeRows, decodeRows,
@ -84,6 +85,15 @@ slurpLabelledCSV
slurpLabelledCSV file = runConduit $ slurpLabelledCSV file = runConduit $
sourceFile file .| decodeRows .| labelFields .|consume sourceFile file .| decodeRows .| labelFields .|consume
-- | read an entire CSV file with a header
slurpRawLabelledCSV
:: MonadResource m
=> FilePath
-- ^ the path to the file to read
-> m [M.Map BS.ByteString BS.ByteString]
slurpRawLabelledCSV file = runConduit $
sourceFile file .| decodeRawRows .| labelFields .|consume
-- | read a CSV stream, using the first row as a header containing -- | read a CSV stream, using the first row as a header containing
-- field labels -- field labels
labelFields :: (Monad m, Ord a) => ConduitT [a] (M.Map a a) m () labelFields :: (Monad m, Ord a) => ConduitT [a] (M.Map a a) m ()