diff options
| author | Rutger Broekhoff | 2025-07-23 20:25:55 +0200 |
|---|---|---|
| committer | Rutger Broekhoff | 2025-07-23 20:25:55 +0200 |
| commit | 29b26dcbc1404925bbf12cddd66f7fcd3c57cfe7 (patch) | |
| tree | 9a6d7e7a83b7627bbe29e30c658b991bf45b62f7 /app/Data/Ledger.hs | |
| parent | 16103a4d886605b49bc2f21f06eb99513e4fac60 (diff) | |
| download | rdcapsis-main.tar.gz rdcapsis-main.zip | |
Diffstat (limited to 'app/Data/Ledger.hs')
| -rw-r--r-- | app/Data/Ledger.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/app/Data/Ledger.hs b/app/Data/Ledger.hs index 53901cb..4aa5137 100644 --- a/app/Data/Ledger.hs +++ b/app/Data/Ledger.hs | |||
| @@ -94,8 +94,8 @@ data Account = Account | |||
| 94 | -- cleared and the balance of the account agrees with the amount in the | 94 | -- cleared and the balance of the account agrees with the amount in the |
| 95 | -- assertion. | 95 | -- assertion. |
| 96 | data BalAssert = BalAssert | 96 | data BalAssert = BalAssert |
| 97 | { account :: Account, | 97 | { account :: AccountId, |
| 98 | amount :: Integer, | 98 | amount :: Money, |
| 99 | labels :: Labels | 99 | labels :: Labels |
| 100 | } | 100 | } |
| 101 | 101 | ||
| @@ -108,8 +108,8 @@ data Tx = Tx | |||
| 108 | } | 108 | } |
| 109 | deriving (Show, Generic) | 109 | deriving (Show, Generic) |
| 110 | 110 | ||
| 111 | data SeqTx = SeqTx [Integer] Tx | 111 | -- data SeqTx = SeqTx [Integer] Tx |
| 112 | 112 | ||
| 113 | data LedgerEntry = TxEntry SeqTx | BalAssertEntry BalAssert | 113 | data Entry = TxEntry Tx | BalAssertEntry BalAssert |
| 114 | 114 | ||
| 115 | data Ledger = Ledger [LedgerEntry] | 115 | data Ledger = Ledger [Entry] |