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

pretty print SetTrustLineFlagsOp

Browse source
This commit is contained in:
La Ancapo 2026-01-25 17:11:45 +01:00
parent 09a78164d3
commit 8a54a3f0f5
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Main.hs
View file

@ -54,7 +54,6 @@ confirm = do
else pure True else pure True
b32 = encodeBase32 . unLengthArray b32 = encodeBase32 . unLengthArray
--b64 = T.decodeLatin1 . B64.encode . unLengthArray
utf8s = T.decodeUtf8Lenient . unLengthArray utf8s = T.decodeUtf8Lenient . unLengthArray
prettyKey x = encodeKey EncodingAccount $ unLengthArray x prettyKey x = encodeKey EncodingAccount $ unLengthArray x
prettyAmount amount = T.show ((fromIntegral amount) / 1e7) prettyAmount amount = T.show ((fromIntegral amount) / 1e7)
@ -129,7 +128,7 @@ instance Pretty OperationBody where
-- 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
-- pretty (OperationBody'LIQUIDITY_POOL_WITHDRAW x) = pretty x -- pretty (OperationBody'LIQUIDITY_POOL_WITHDRAW x) = pretty x
pretty x = T.show x pretty x = T.show x
@ -158,6 +157,12 @@ instance Pretty SignerKey where
instance Pretty CreateAccountOp where instance Pretty CreateAccountOp where
pretty (CreateAccountOp dest bal) = T.concat ["Create account ", pretty dest, " with starting balance ", T.show bal] pretty (CreateAccountOp dest bal) = T.concat ["Create account ", pretty dest, " with starting balance ", T.show bal]
instance Pretty SetTrustLineFlagsOp where
pretty (SetTrustLineFlagsOp trustor ass clearFlags setFlags)
| setFlags == 1 && clearFlags == 0 = T.concat ["Authorize ", pretty trustor, " ops with asset ", pretty ass]
| setFlags == 0 && clearFlags == 1 = T.concat ["Clear authorization ", pretty trustor, " ops with asset ", pretty ass]
| otherwise = T.concat ["Set trust line of ", pretty trustor, " to asset ", pretty ass, ": set flags ", T.show setFlags, ", clear flags ", T.show clearFlags]
instance Pretty ChangeTrustOp where instance Pretty ChangeTrustOp where
pretty (ChangeTrustOp line limit) = T.concat ["Trust ", pretty line, " up to ", T.show limit] pretty (ChangeTrustOp line limit) = T.concat ["Trust ", pretty line, " up to ", T.show limit]