Fix CSV bug.

Got the condition on the takeWhile wrong during a refactor.
mchav · Jan 17, 2025 · eb888a4 · eb888a4
1 parent 729c413
commit eb888a4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 =