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

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

Browse Source
This commit is contained in:
Simon Michael 2012-11-26 01:56:39 +00:00
parent afb4fb0356
commit 6eda8c4bbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,7 +183,7 @@ maxFieldIndex r = maximumDef (-1) $ catMaybes [
-- rulesFileFor CliOpts{rules_file_=Just f} _ = f -- rulesFileFor CliOpts{rules_file_=Just f} _ = f
-- rulesFileFor CliOpts{rules_file_=Nothing} csvfile = replaceExtension csvfile ".rules" -- rulesFileFor CliOpts{rules_file_=Nothing} csvfile = replaceExtension csvfile ".rules"
rulesFileFor :: FilePath -> FilePath rulesFileFor :: FilePath -> FilePath
rulesFileFor = flip replaceExtension ".rules" rulesFileFor = (++ ".rules")
newRulesFileContent :: String newRulesFileContent :: String
newRulesFileContent = let prognameandversion = "hledger" in newRulesFileContent = let prognameandversion = "hledger" in