From 53e9aec63f2b6a241d0a0122d9c176215e90e1cb Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 25 Nov 2009 05:37:08 +0000
Subject: [PATCH] print: show all amounts for clarity (don't elide the final
 balancing amount)

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

diff --git a/Commands/Print.hs b/Commands/Print.hs
index 7f6cf9170..ad86e4f57 100644
--- a/Commands/Print.hs
+++ b/Commands/Print.hs
@@ -17,7 +17,7 @@ print' :: [Opt] -> [String] -> Ledger -> IO ()
 print' opts args l = putStr $ showLedgerTransactions opts args l
 
 showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
-showLedgerTransactions opts args l = concatMap showLedgerTransaction txns
+showLedgerTransactions opts args l = concatMap showLedgerTransactionUnelided txns
     where 
       txns = sortBy (comparing ltdate) $
                ledger_txns $