slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactor: rename variable

Browse Source
This commit is contained in:
Aleksandar Dimitrov 2020-01-02 17:23:44 +01:00 committed by Simon Michael
parent 63cda87e86
commit 42d585d20b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -453,8 +453,8 @@ parseAndValidateCsvRules rulesfile s =
Right rules -> first makeFancyParseError $ validateRules rules Right rules -> first makeFancyParseError $ validateRules rules
where where
makeFancyParseError :: String -> String makeFancyParseError :: String -> String
makeFancyParseError s = makeFancyParseError errorString =
parseErrorPretty (FancyError 0 (S.singleton $ ErrorFail s) :: ParseError Text String) parseErrorPretty (FancyError 0 (S.singleton $ ErrorFail errorString) :: ParseError Text String)
-- | Parse this text as CSV conversion rules. The file path is for error messages. -- | Parse this text as CSV conversion rules. The file path is for error messages.
parseCsvRules :: FilePath -> T.Text -> Either (ParseErrorBundle T.Text CustomErr) CsvRules parseCsvRules :: FilePath -> T.Text -> Either (ParseErrorBundle T.Text CustomErr) CsvRules