diff --git a/src/Data/DataFrame/IO/CSV.hs b/src/Data/DataFrame/IO/CSV.hs index 2650670..3752e61 100644 --- a/src/Data/DataFrame/IO/CSV.hs +++ b/src/Data/DataFrame/IO/CSV.hs @@ -160,7 +160,7 @@ field c = unquotedField :: Char -> Parser C.ByteString unquotedField sep = takeWhile nonTerminal "unquoted field" - where nonTerminal = (`S.member` S.fromList [sep, '\n', '\r', '"']) + where nonTerminal = (`S.notMember` S.fromList [sep, '\n', '\r', '"']) insideQuotes :: Parser C.ByteString insideQuotes =