csv reader: append ".rules" to the original file name instead of replacing its extension

2012-11-26 01:56:39 +00:00 · 2012-11-26 01:56:39 +00:00 · 6eda8c4bbf
commit 6eda8c4bbf
parent afb4fb0356
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@ -183,7 +183,7 @@ maxFieldIndex r = maximumDef (-1) $ catMaybes [
 -- rulesFileFor CliOpts{rules_file_=Just f} _ = f
 -- rulesFileFor CliOpts{rules_file_=Nothing} csvfile = replaceExtension csvfile ".rules"
 rulesFileFor :: FilePath -> FilePath
-rulesFileFor = flip replaceExtension ".rules"
+rulesFileFor = (++ ".rules")

 newRulesFileContent :: String
 newRulesFileContent = let prognameandversion = "hledger" in