add: trim whitespace in auto-created journal

This commit is contained in:
Simon Michael 2011-09-26 20:56:01 +00:00
parent 6f0f1acf7e
commit 14881d0515

View File

@ -121,7 +121,7 @@ ensureJournalFile f = do
newJournalContent :: IO String
newJournalContent = do
d <- getCurrentDay
return $ printf "; journal created %s by hledger\n\n" (show d)
return $ printf "; journal created %s by hledger\n" (show d)
-- | Read a Journal from this string, using the specified data format or
-- trying all known formats, or give an error string.