From 27510b01069186ab224ab1f82b3e1d8a12ea2c7f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 19 Mar 2010 19:53:26 +0000
Subject: [PATCH] add: elide last amount in added transactions, as requested

---
 Commands/Add.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands/Add.hs b/Commands/Add.hs
index 299d82053..74bbb7ff3 100644
--- a/Commands/Add.hs
+++ b/Commands/Add.hs
@@ -134,7 +134,7 @@ askFor prompt def validator = do
 -- is enough to include new transactions in the history matching.
 ledgerAddTransaction :: Ledger -> Transaction -> IO Ledger
 ledgerAddTransaction l t = do
-  appendToLedgerFile l $ show t
+  appendToLedgerFile l $ showTransaction t
   putStrLn $ printf "\nAdded transaction to %s:" (filepath $ journal l)
   putStrLn =<< registerFromString (show t)
   return l{journal=rl{jtxns=ts}}