From be19f96d03d42e7f9b0c10487fd7e2769609d42e Mon Sep 17 00:00:00 2001
From: La Ancapo <>
Date: Fri, 6 Feb 2026 15:23:39 +0100
Subject: [PATCH] fixed claimable balance amount pretty-printing

---
 src/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Pretty.hs b/src/Pretty.hs
index e2cb9e5..348016b 100644
--- a/src/Pretty.hs
+++ b/src/Pretty.hs
@@ -124,7 +124,7 @@ instance Pretty CreateAccountOp where
   pretty (CreateAccountOp dest bal) = T.concat ["Create account ", pretty dest, " with starting balance ", T.show bal]
 
 instance Pretty CreateClaimableBalanceOp where
-  pretty (CreateClaimableBalanceOp ass amount claimants) = T.concat ["Create claimable ", T.show amount, " ", pretty ass, " to ", pretty claimants]
+  pretty (CreateClaimableBalanceOp ass amount claimants) = T.concat ["Create claimable ", prettyAmount amount, " ", pretty ass, " to ", pretty claimants]
 
 instance Pretty SetTrustLineFlagsOp where
   pretty (SetTrustLineFlagsOp trustor ass clearFlags setFlags)