Explictly discard result
This commit is contained in:
parent
42d585d20b
commit
b104b3b8a3
@ -474,7 +474,7 @@ validateRules rules = do
|
|||||||
|
|
||||||
rulesp :: CsvRulesParser CsvRules
|
rulesp :: CsvRulesParser CsvRules
|
||||||
rulesp = do
|
rulesp = do
|
||||||
many $ choiceInState
|
_ <- many $ choiceInState
|
||||||
[blankorcommentlinep <?> "blank or comment line"
|
[blankorcommentlinep <?> "blank or comment line"
|
||||||
,(directivep >>= modify' . addDirective) <?> "directive"
|
,(directivep >>= modify' . addDirective) <?> "directive"
|
||||||
,(fieldnamelistp >>= modify' . setIndexesAndAssignmentsFromList) <?> "field name list"
|
,(fieldnamelistp >>= modify' . setIndexesAndAssignmentsFromList) <?> "field name list"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user