From 29b26dcbc1404925bbf12cddd66f7fcd3c57cfe7 Mon Sep 17 00:00:00 2001
From: Rutger Broekhoff
Date: Wed, 23 Jul 2025 20:25:55 +0200
Subject: hello

---
 app/Data/Ledger.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'app/Data')

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
 -- cleared and the balance of the account agrees with the amount in the
 -- assertion.
 data BalAssert = BalAssert
-  { account :: Account,
-    amount :: Integer,
+  { account :: AccountId,
+    amount :: Money,
     labels :: Labels
   }
 
@@ -108,8 +108,8 @@ data Tx = Tx
   }
   deriving (Show, Generic)
 
-data SeqTx = SeqTx [Integer] Tx
+-- data SeqTx = SeqTx [Integer] Tx
 
-data LedgerEntry = TxEntry SeqTx | BalAssertEntry BalAssert
+data Entry = TxEntry Tx | BalAssertEntry BalAssert
 
-data Ledger = Ledger [LedgerEntry]
+data Ledger = Ledger [Entry]
-- 
cgit v1.2.3