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

2014-05-03 15:05:35 -07:00 · 2014-05-03 15:05:35 -07:00 · 1fb1ad6df2
commit 1fb1ad6df2
parent dfbe801fbc
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@ -408,8 +408,8 @@ fieldnamelist = (do
  string "fields"
  optional $ char ':'
  many1 spacenonewline
-  f <- fieldname
  let separator = many spacenonewline >> char ',' >> many spacenonewline
+  f <- fromMaybe "" <$> optionMaybe fieldname
  fs <- many1 $ (separator >> fromMaybe "" <$> optionMaybe fieldname)
  restofline
  return $ map (map toLower) $ f:fs