Explictly discard result
This commit is contained in:
parent
42d585d20b
commit
b104b3b8a3
@ -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"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user