From 770c2956a5ea5513e21ddbb3f1fd5452e928ae0b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 27 Nov 2008 04:29:32 +0000
Subject: [PATCH] oops, maybe another piece of the Date/DateTime removal

---
 Ledger/Transaction.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Transaction.hs b/Ledger/Transaction.hs
index e479f37ad..7403667f3 100644
--- a/Ledger/Transaction.hs
+++ b/Ledger/Transaction.hs
@@ -18,7 +18,7 @@ import Ledger.Amount
 instance Show Transaction where show=showTransaction
 
 showTransaction :: Transaction -> String
-showTransaction (Transaction eno d desc a amt ttype) = unwords [show d,desc,a,show amt,show ttype]
+showTransaction (Transaction eno d desc a amt ttype) = unwords [showDate d,desc,a,show amt,show ttype]
 
 -- | Convert a 'Entry' to two or more 'Transaction's. An id number
 -- is attached to the transactions to preserve their grouping - it should