diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-02-22 21:17:22 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-02-22 21:18:04 -0800 |
| commit | f0a991a22be9b82e192d63bf80bbe39679bb2e07 (patch) | |
| tree | 2ebc75ef6acaf3ca68b8844fc68adfa2e3f39a0c /src/Text/Pandoc/CSV.hs | |
| parent | 00e4bb51e47487fa146caee3bcbbacef51292acc (diff) | |
| download | pandoc-f0a991a22be9b82e192d63bf80bbe39679bb2e07.tar.gz | |
T.P.CSV: fix parsing of unquoted values.
Previously we didn't allow unescaped quotes in unquoted values,
but they are allowed. Closes #7112.
Diffstat (limited to 'src/Text/Pandoc/CSV.hs')
| -rw-r--r-- | src/Text/Pandoc/CSV.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/CSV.hs b/src/Text/Pandoc/CSV.hs index ec212fa9a..2bd21bcfb 100644 --- a/src/Text/Pandoc/CSV.hs +++ b/src/Text/Pandoc/CSV.hs @@ -68,8 +68,7 @@ escaped opts = try $ pCSVUnquotedCell :: CSVOptions -> Parser Text pCSVUnquotedCell opts = T.pack <$> - many (satisfy (\c -> c /= csvDelim opts && c /= '\r' && c /= '\n' - && c /= csvQuote opts)) + many (satisfy (\c -> c /= csvDelim opts && c /= '\r' && c /= '\n')) pCSVDelim :: CSVOptions -> Parser () pCSVDelim opts = do |