add: quote file name consistently in output

Don't show quotes around the journal file path in the "Creating..."
message since there aren't any in the subsequent "Adding..." message.
This commit is contained in:
Simon Michael 2015-05-27 14:41:23 -07:00
parent 8d75635505
commit ef890e1b23

View File

@ -187,7 +187,7 @@ ensureJournalFileExists :: FilePath -> IO ()
ensureJournalFileExists f = do ensureJournalFileExists f = do
exists <- doesFileExist f exists <- doesFileExist f
when (not exists) $ do when (not exists) $ do
hPrintf stderr "Creating hledger journal file \"%s\".\n" f hPrintf stderr "Creating hledger journal file %s.\n" f
-- note Hledger.Utils.UTF8.* do no line ending conversion on windows, -- note Hledger.Utils.UTF8.* do no line ending conversion on windows,
-- we currently require unix line endings on all platforms. -- we currently require unix line endings on all platforms.
newJournalContent >>= writeFile f newJournalContent >>= writeFile f