From 42d585d20b5dd11a31b3233a87fe91fe69820439 Mon Sep 17 00:00:00 2001
From: Aleksandar Dimitrov <git@aleks.bg>
Date: Thu, 2 Jan 2020 17:23:44 +0100
Subject: [PATCH] Refactor: rename variable

---
 hledger-lib/Hledger/Read/CsvReader.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 6e9857e74..72b085b24 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -453,8 +453,8 @@ parseAndValidateCsvRules rulesfile s =
     Right rules -> first makeFancyParseError $ validateRules rules
   where
     makeFancyParseError :: String -> String
-    makeFancyParseError s = 
-      parseErrorPretty (FancyError 0 (S.singleton $ ErrorFail s) :: ParseError Text String)
+    makeFancyParseError errorString =
+      parseErrorPretty (FancyError 0 (S.singleton $ ErrorFail errorString) :: ParseError Text String)
 
 -- | Parse this text as CSV conversion rules. The file path is for error messages.
 parseCsvRules :: FilePath -> T.Text -> Either (ParseErrorBundle T.Text CustomErr) CsvRules