@@ -68,8 +68,7 @@ escaped opts = try $
69pCSVUnquotedCell :: CSVOptions -> Parser Text
69pCSVUnquotedCell :: CSVOptions -> Parser Text
70pCSVUnquotedCell opts = T.pack <$>
70pCSVUnquotedCell opts = T.pack <$>
71− many (satisfy (\c -> c /= csvDelim opts && c /= '\r' && c /= '\n'
71+ many (satisfy (\c -> c /= csvDelim opts && c /= '\r' && c /= '\n'))
72− && c /= csvQuote opts))
74pCSVDelim :: CSVOptions -> Parser ()
73pCSVDelim :: CSVOptions -> Parser ()
75pCSVDelim opts = do
74pCSVDelim opts = do