From 2edd2da7b8c65ed084b77eba43727c6c500e41bb Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 7 Apr 2009 21:38:15 +0000
Subject: [PATCH] nullentry -> nullledgertxn

---
 Ledger/LedgerTransaction.hs | 3 ++-
 Tests.hs                    | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Ledger/LedgerTransaction.hs b/Ledger/LedgerTransaction.hs
index d607806bb..cdacf8945 100644
--- a/Ledger/LedgerTransaction.hs
+++ b/Ledger/LedgerTransaction.hs
@@ -22,7 +22,8 @@ instance Show ModifierTransaction where
 instance Show PeriodicTransaction where 
     show t = "~ " ++ (ptperiodicexpr t) ++ "\n" ++ unlines (map show (ptpostings t))
 
-nullentry = LedgerTransaction {
+nullledgertxn :: LedgerTransaction
+nullledgertxn = LedgerTransaction {
               ltdate=parsedate "1900/1/1", 
               ltstatus=False, 
               ltcode="", 
diff --git a/Tests.hs b/Tests.hs
index a939b5c11..fa124db5a 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -1325,7 +1325,7 @@ rawLedgerWithAmounts as =
         RawLedger 
         [] 
         [] 
-        [nullentry{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as]
+        [nullledgertxn{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as]
         []
         []
         ""