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

Compare commits

base: la_ancapo:be19f96d03d42e7f9b0c10487fd7e2769609d42e
Branches Tags
la_ancapo:master
..
compare: la_ancapo:f7d5a4dd345860717acc5569d9a0ea85b1eabad9
Branches Tags
la_ancapo:master

No commits in common. "be19f96d03d42e7f9b0c10487fd7e2769609d42e" and "f7d5a4dd345860717acc5569d9a0ea85b1eabad9" have entirely different histories.
be19f96d03 ... f7d5a4dd34

1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
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
@ -124,7 +124,7 @@ 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 CreateClaimableBalanceOp where instance Pretty CreateClaimableBalanceOp where
pretty (CreateClaimableBalanceOp ass amount claimants) = T.concat ["Create claimable ", prettyAmount amount, " ", pretty ass, " to ", pretty claimants] pretty (CreateClaimableBalanceOp ass amount claimants) = T.concat ["Create claimable ", T.show amount, " ", pretty ass, " to ", pretty claimants]
instance Pretty SetTrustLineFlagsOp where instance Pretty SetTrustLineFlagsOp where
pretty (SetTrustLineFlagsOp trustor ass clearFlags setFlags) pretty (SetTrustLineFlagsOp trustor ass clearFlags setFlags)
@ -142,9 +142,6 @@ 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, ")"]