oops, maybe another piece of the Date/DateTime removal

This commit is contained in:
Simon Michael 2008-11-27 04:29:32 +00:00
parent 4d5478b334
commit 770c2956a5

View File

@ -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