la_ancapo/stellar-veritas
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pretty clawback

Browse source
This commit is contained in:
La Ancapo 2026-02-06 15:23:05 +01:00
parent f7d5a4dd34
commit 2f8f98f9eb
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Pretty.hs
View file

@ -92,7 +92,7 @@ instance Pretty OperationBody where
pretty (OperationBody'BEGIN_SPONSORING_FUTURE_RESERVES (BeginSponsoringFutureReservesOp account)) = T.concat ["Sponsoring reserves for ", pretty account] pretty (OperationBody'BEGIN_SPONSORING_FUTURE_RESERVES (BeginSponsoringFutureReservesOp account)) = T.concat ["Sponsoring reserves for ", pretty account]
pretty OperationBody'END_SPONSORING_FUTURE_RESERVES = "No longer sponsored reserves" pretty OperationBody'END_SPONSORING_FUTURE_RESERVES = "No longer sponsored reserves"
-- pretty (OperationBody'REVOKE_SPONSORSHIP x) = pretty x -- pretty (OperationBody'REVOKE_SPONSORSHIP x) = pretty x
-- pretty (OperationBody'CLAWBACK x) = pretty x pretty (OperationBody'CLAWBACK x) = pretty x
-- pretty (OperationBody'CLAWBACK_CLAIMABLE_BALANCE x) = pretty x -- pretty (OperationBody'CLAWBACK_CLAIMABLE_BALANCE x) = pretty x
pretty (OperationBody'SET_TRUST_LINE_FLAGS x) = pretty x pretty (OperationBody'SET_TRUST_LINE_FLAGS x) = pretty x
-- pretty (OperationBody'LIQUIDITY_POOL_DEPOSIT x) = pretty x -- pretty (OperationBody'LIQUIDITY_POOL_DEPOSIT x) = pretty x
@ -142,6 +142,9 @@ instance Pretty ManageDataOp where
pretty (ManageDataOp name Nothing) = T.concat ["Data ", utf8s name, " cleared"] pretty (ManageDataOp name Nothing) = T.concat ["Data ", utf8s name, " cleared"]
pretty (ManageDataOp name (Just value)) = T.concat ["Data ", utf8s name, " = ", utf8s value] pretty (ManageDataOp name (Just value)) = T.concat ["Data ", utf8s name, " = ", utf8s value]
instance Pretty ClawbackOp where
pretty (ClawbackOp ass acc amount) = T.concat ["Clawback ", prettyAmount amount, " ", pretty ass, " from ", pretty acc]
instance Pretty MuxedAccount where instance Pretty MuxedAccount where
pretty (MuxedAccount'KEY_TYPE_ED25519 x) = prettyKey x pretty (MuxedAccount'KEY_TYPE_ED25519 x) = prettyKey x
pretty (MuxedAccount'KEY_TYPE_MUXED_ED25519 id key) = T.concat [b32 key, " (", T.show id, ")"] pretty (MuxedAccount'KEY_TYPE_MUXED_ED25519 id key) = T.concat [b32 key, " (", T.show id, ")"]