diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 21:07:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 21:07:47 -0700 |
| commit | e77d08e439e727111b05a832531fdf86d03d2436 (patch) | |
| tree | 4a6be1ec4f5be913a56aa5fa54d8d8bdaafe0279 /src/Text/Pandoc/CSV.hs | |
| parent | 7a924ec55a8c9f9d4c887b3781ebeddbbf9d86e5 (diff) | |
hlint suggestions.
Diffstat (limited to 'src/Text/Pandoc/CSV.hs')
| -rw-r--r-- | src/Text/Pandoc/CSV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/CSV.hs b/src/Text/Pandoc/CSV.hs index ee68d988b..924052dca 100644 --- a/src/Text/Pandoc/CSV.hs +++ b/src/Text/Pandoc/CSV.hs @@ -79,7 +79,7 @@ pCSVQuotedCell opts = do return $ T.pack res escaped :: CSVOptions -> Parser Char -escaped opts = do +escaped opts = case csvEscape opts of Nothing -> try $ char (csvQuote opts) >> char (csvQuote opts) Just c -> try $ char c >> noneOf "\r\n" |