Explictly discard result

This commit is contained in:
Aleksandar Dimitrov 2020-01-02 17:25:19 +01:00 committed by Simon Michael
parent 42d585d20b
commit b104b3b8a3

View File

@ -474,7 +474,7 @@ validateRules rules = do
rulesp :: CsvRulesParser CsvRules
rulesp = do
many $ choiceInState
_ <- many $ choiceInState
[blankorcommentlinep <?> "blank or comment line"
,(directivep >>= modify' . addDirective) <?> "directive"
,(fieldnamelistp >>= modify' . setIndexesAndAssignmentsFromList) <?> "field name list"