@@ -63,7 +63,7 @@ quotedString = do
63 concat <$> manyTill inQuotes (try (char '"'))
63 concat <$> manyTill inQuotes (try (char '"'))
65unquotedString :: Parser String
65unquotedString :: Parser String
66−unquotedString = manyTill anyChar (try $ lookAhead space $> () <|> eof)
66+unquotedString = manyTill anyChar (try $ lookAhead space *> return () <|> eof)
68fieldArgument :: Parser String
68fieldArgument :: Parser String
69fieldArgument = quotedString <|> unquotedString
69fieldArgument = quotedString <|> unquotedString