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

pretty buy offer

Browse source
This commit is contained in:
La Ancapo 2026-02-08 18:02:21 +01:00
parent be19f96d03
commit 6e38987f7b
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/Pretty.hs
View file

@ -85,7 +85,7 @@ instance Pretty OperationBody where
pretty OperationBody'INFLATION = "Inflation" pretty OperationBody'INFLATION = "Inflation"
pretty (OperationBody'MANAGE_DATA x) = pretty x pretty (OperationBody'MANAGE_DATA x) = pretty x
-- pretty (OperationBody'BUMP_SEQUENCE x) = pretty x -- pretty (OperationBody'BUMP_SEQUENCE x) = pretty x
-- pretty (OperationBody'MANAGE_BUY_OFFER x) = pretty x pretty (OperationBody'MANAGE_BUY_OFFER x) = pretty x
-- pretty (OperationBody'PATH_PAYMENT_STRICT_SEND x) = pretty x -- pretty (OperationBody'PATH_PAYMENT_STRICT_SEND x) = pretty x
pretty (OperationBody'CREATE_CLAIMABLE_BALANCE x) = pretty x pretty (OperationBody'CREATE_CLAIMABLE_BALANCE x) = pretty x
-- pretty (OperationBody'CLAIM_CLAIMABLE_BALANCE x) = pretty x -- pretty (OperationBody'CLAIM_CLAIMABLE_BALANCE x) = pretty x
@ -142,6 +142,12 @@ 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 ManageBuyOfferOp where
pretty (ManageBuyOfferOp sellass buyass buyamount price offerid) = T.concat ["Buy ", prettyAmount buyamount, " ", pretty buyass, " for ", pretty sellass, " price ", pretty price, " ", prettyAssetName buyass, "/", prettyAssetName sellass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
instance Pretty Price where
pretty (Price numerator denominator) = T.show $ fromIntegral numerator / fromIntegral denominator
instance Pretty ClawbackOp where instance Pretty ClawbackOp where
pretty (ClawbackOp ass acc amount) = T.concat ["Clawback ", prettyAmount amount, " ", pretty ass, " from ", pretty acc] pretty (ClawbackOp ass acc amount) = T.concat ["Clawback ", prettyAmount amount, " ", pretty ass, " from ", pretty acc]
@ -165,6 +171,10 @@ instance Pretty AlphaNum4 where
instance Pretty AlphaNum12 where instance Pretty AlphaNum12 where
pretty (AlphaNum12 code issuer) = T.concat [prettyAssetCode code, "-", pretty issuer] pretty (AlphaNum12 code issuer) = T.concat [prettyAssetCode code, "-", pretty issuer]
prettyAssetName Asset'ASSET_TYPE_NATIVE = "XLM"
prettyAssetName (Asset'ASSET_TYPE_CREDIT_ALPHANUM4 (AlphaNum4 code _)) = prettyAssetCode code
prettyAssetName (Asset'ASSET_TYPE_CREDIT_ALPHANUM12 (AlphaNum12 code _)) = prettyAssetCode code
instance Pretty a => Pretty (LengthArray b n a) where instance Pretty a => Pretty (LengthArray b n a) where
pretty x = pretty $ unLengthArray x pretty x = pretty $ unLengthArray x