From 4b1f8584a57b3915fba7d085e62665a79178b32e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 1 Feb 2020 07:33:55 -0800
Subject: Fix bug in Text.Pandoc.CSV.

Previously an extra blank record would sometimes be inserted at the
end.
---
 src/Text/Pandoc/CSV.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/CSV.hs b/src/Text/Pandoc/CSV.hs
index d9bc10200..99324ee2e 100644
--- a/src/Text/Pandoc/CSV.hs
+++ b/src/Text/Pandoc/CSV.hs
@@ -46,10 +46,10 @@ pCSV opts =
   (pCSVRow opts `sepEndBy` endline) <* (spaces *> eof)
 
 pCSVRow :: CSVOptions -> Parser [Text]
-pCSVRow opts = notFollowedBy blank >> pCSVCell opts `sepBy` pCSVDelim opts
-
-blank :: Parser ()
-blank = try $ spaces >> (() <$ endline <|> eof)
+pCSVRow opts = do
+  x <- pCSVCell opts
+  xs <- (if T.null x then many1 else many) $ pCSVDelim opts *> pCSVCell opts
+  return (x:xs)
 
 pCSVCell :: CSVOptions -> Parser Text
 pCSVCell opts = pCSVQuotedCell opts <|> pCSVUnquotedCell opts
-- 
cgit v1.2.3