slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nullentry -> nullledgertxn

Browse Source
This commit is contained in:
Simon Michael 2009-04-07 21:38:15 +00:00
parent 2c989522da
commit 2edd2da7b8
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/LedgerTransaction.hs
View File

@ -22,7 +22,8 @@ instance Show ModifierTransaction where
instance Show PeriodicTransaction where instance Show PeriodicTransaction where
show t = "~ " ++ (ptperiodicexpr t) ++ "\n" ++ unlines (map show (ptpostings t)) show t = "~ " ++ (ptperiodicexpr t) ++ "\n" ++ unlines (map show (ptpostings t))
nullentry = LedgerTransaction { nullledgertxn :: LedgerTransaction
nullledgertxn = LedgerTransaction {
ltdate=parsedate "1900/1/1", ltdate=parsedate "1900/1/1",
ltstatus=False, ltstatus=False,
ltcode="", ltcode="",

2
Tests.hs
View File

@ -1325,7 +1325,7 @@ rawLedgerWithAmounts as =
RawLedger RawLedger
[] []
[] []
[nullentry{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as] [nullledgertxn{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as]
[] []
[] []
"" ""