From b104b3b8a35340918a74a11121d8172c67a63707 Mon Sep 17 00:00:00 2001
From: Aleksandar Dimitrov <git@aleks.bg>
Date: Thu, 2 Jan 2020 17:25:19 +0100
Subject: [PATCH] Explictly discard result

---
 hledger-lib/Hledger/Read/CsvReader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 72b085b24..865457c32 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -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"