From 6eda8c4bbfbd570495b43613e05343bb7ac28cbf Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 26 Nov 2012 01:56:39 +0000
Subject: [PATCH] csv reader: append ".rules" to the original file name instead
 of replacing its extension

---
 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 20dd0234a..4545a1e2a 100644
--- 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