From 2f8f98f9eb49f1e350eac4c19f6bdd449779c113 Mon Sep 17 00:00:00 2001 From: La Ancapo <> Date: Fri, 6 Feb 2026 15:23:05 +0100 Subject: [PATCH] pretty clawback --- src/Pretty.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Pretty.hs b/src/Pretty.hs index 0d07035..e2cb9e5 100644 --- a/src/Pretty.hs +++ b/src/Pretty.hs @@ -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'END_SPONSORING_FUTURE_RESERVES = "No longer sponsored reserves" -- 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'SET_TRUST_LINE_FLAGS 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 (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 pretty (MuxedAccount'KEY_TYPE_ED25519 x) = prettyKey x pretty (MuxedAccount'KEY_TYPE_MUXED_ED25519 id key) = T.concat [b32 key, " (", T.show id, ")"]