slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

csv: allow an empty first name in fields list (fixes #178)

Browse Source
This commit is contained in:
Simon Michael 2014-05-03 15:05:35 -07:00
parent dfbe801fbc
commit 1fb1ad6df2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -408,8 +408,8 @@ fieldnamelist = (do
string "fields" string "fields"
optional $ char ':' optional $ char ':'
many1 spacenonewline many1 spacenonewline
f <- fieldname
let separator = many spacenonewline >> char ',' >> many spacenonewline let separator = many spacenonewline >> char ',' >> many spacenonewline
f <- fromMaybe "" <$> optionMaybe fieldname
fs <- many1 $ (separator >> fromMaybe "" <$> optionMaybe fieldname) fs <- many1 $ (separator >> fromMaybe "" <$> optionMaybe fieldname)
restofline restofline
return $ map (map toLower) $ f:fs return $ map (map toLower) $ f:fs