From b3b33336b4df6c6a656915d544ce4aadc8d2697a Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 6 Jul 2017 14:07:46 +0100 Subject: [PATCH] csv: show the "creating/using rules file" message only with --debug --- hledger-lib/Hledger/Read/CsvReader.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index 4e5596fd1..3ec9c7a4b 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -52,13 +52,12 @@ import System.Locale (defaultTimeLocale) import Safe import System.Directory (doesFileExist) import System.FilePath -import System.IO (stderr) import Test.HUnit hiding (State) import Text.CSV (parseCSV, CSV) import Text.Megaparsec hiding (parse, State) import Text.Megaparsec.Text import qualified Text.Parsec as Parsec -import Text.Printf (hPrintf,printf) +import Text.Printf (printf) import Hledger.Data import Hledger.Utils.UTF8IOCompat (getContents) @@ -106,7 +105,7 @@ readJournalFromCsv mrulesfile csvfile csvdata = rulestext <- if rulesfileexists then do - hPrintf stderr "using conversion rules file %s\n" rulesfile + dbg1IO "using conversion rules file" rulesfile liftIO $ (readFile' rulesfile >>= expandIncludes (takeDirectory rulesfile)) else return $ defaultRulesText rulesfile rules <- liftIO (runExceptT $ parseAndValidateCsvRules rulesfile rulestext) >>= either throwerr return @@ -159,7 +158,7 @@ readJournalFromCsv mrulesfile csvfile csvdata = txns'' = sortBy (comparing tdate) txns' when (not rulesfileexists) $ do - hPrintf stderr "created default conversion rules file %s, edit this for better results\n" rulesfile + dbg1IO "creating conversion rules file" rulesfile writeFile rulesfile $ T.unpack rulestext return $ Right nulljournal{jtxns=txns''}