From 16103a4d886605b49bc2f21f06eb99513e4fac60 Mon Sep 17 00:00:00 2001 From: Rutger Broekhoff Date: Wed, 23 Jul 2025 12:47:47 +0200 Subject: Slay --- app/Data/Ledger.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Data/Ledger.hs') diff --git a/app/Data/Ledger.hs b/app/Data/Ledger.hs index ceca9da..53901cb 100644 --- a/app/Data/Ledger.hs +++ b/app/Data/Ledger.hs @@ -50,9 +50,9 @@ data TxType data IbanTag = AccountTag | CounterpartyIbanTag deriving (Eq, Enum, Ord, Show) -data UnitTag = FiledTag | GooglePayTag deriving (Eq, Enum, Ord, Show) +data UnitTag = FiledTag | GooglePayTag | AutoRoundSavingsTag deriving (Eq, Enum, Ord, Show) -data TextTag = DescTag | UserTag | CounterpartyNameTag | ReferenceTag | MandateIdTag | CreditorIdTag | OtherPartyTag | TransactionTag | TerminalTag | CardSeqNoTag deriving (Eq, Enum, Ord, Show) +data TextTag = DescTag | UserTag | CounterpartyNameTag | ReferenceTag | MandateIdTag | CreditorIdTag | OtherPartyTag | TransactionTag | TerminalTag | CardSeqNoTag | SavingsAccountTag deriving (Eq, Enum, Ord, Show) data Label a where TextLabel :: TextTag -> Label T.Text -- cgit v1.2.3