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

add: elide last amount in added transactions, as requested

Browse Source
This commit is contained in:
Simon Michael 2010-03-19 19:53:26 +00:00
parent c2cf9b2185
commit 27510b0106
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Add.hs
View File

@ -134,7 +134,7 @@ askFor prompt def validator = do
-- is enough to include new transactions in the history matching. -- is enough to include new transactions in the history matching.
ledgerAddTransaction :: Ledger -> Transaction -> IO Ledger ledgerAddTransaction :: Ledger -> Transaction -> IO Ledger
ledgerAddTransaction l t = do ledgerAddTransaction l t = do
appendToLedgerFile l $ show t appendToLedgerFile l $ showTransaction t
putStrLn $ printf "\nAdded transaction to %s:" (filepath $ journal l) putStrLn $ printf "\nAdded transaction to %s:" (filepath $ journal l)
putStrLn =<< registerFromString (show t) putStrLn =<< registerFromString (show t)
return l{journal=rl{jtxns=ts}} return l{journal=rl{jtxns=ts}}