From 1fb1ad6df2734e9478df29530d880dc080abbbfc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 3 May 2014 15:05:35 -0700
Subject: [PATCH] csv: allow an empty first name in fields list (fixes #178)

---
 hledger-lib/Hledger/Read/CsvReader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index a7a37224e..f3cb1a262 100644
--- 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