nullentry -> nullledgertxn

2009-04-07 21:38:15 +00:00 · 2009-04-07 21:38:15 +00:00 · 2edd2da7b8
commit 2edd2da7b8
parent 2c989522da
2 changed files with 3 additions and 2 deletions
--- 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="", 
--- 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]
        []
        []
        ""