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

pretty path payments

Browse source
This commit is contained in:
La Ancapo 2026-08-19 19:11:31 +02:00
parent 0e20c20e33
commit e1a3c75be9
1 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/Pretty.hs
View file

@ -75,7 +75,7 @@ instance Pretty Operation where
instance Pretty OperationBody where
pretty (OperationBody'CREATE_ACCOUNT x) = pretty x
pretty (OperationBody'PAYMENT x) = pretty x
-- pretty (OperationBody'PATH_PAYMENT_STRICT_RECEIVE x) = pretty x
pretty (OperationBody'PATH_PAYMENT_STRICT_RECEIVE x) = pretty x
pretty (OperationBody'MANAGE_SELL_OFFER x) = pretty x
-- pretty (OperationBody'CREATE_PASSIVE_SELL_OFFER x) = pretty x
pretty (OperationBody'SET_OPTIONS x) = pretty x
@ -86,7 +86,7 @@ instance Pretty OperationBody where
pretty (OperationBody'MANAGE_DATA x) = pretty x
-- pretty (OperationBody'BUMP_SEQUENCE 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'CLAIM_CLAIMABLE_BALANCE x) = pretty x
pretty (OperationBody'BEGIN_SPONSORING_FUTURE_RESERVES (BeginSponsoringFutureReservesOp account)) = T.concat ["Sponsoring reserves for ", pretty account]
@ -142,6 +142,22 @@ 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 PathPaymentStrictReceiveOp where
pretty (PathPaymentStrictReceiveOp sendAsset sendMax destination destAsset destAmount path) =
T.concat ["Send up to ", prettyAmount sendMax, " ", pretty sendAsset, " to ", pretty destination,
", must receive ", prettyAmount destAmount, " ", pretty destAsset,
prettyPath path]
instance Pretty PathPaymentStrictSendOp where
pretty (PathPaymentStrictSendOp sendAsset sendAmount destination destAsset destMin path) =
T.concat ["Send ", prettyAmount sendAmount, " ", pretty sendAsset, " to ", pretty destination,
", must receive at least ", prettyAmount destMin, " ", pretty destAsset,
prettyPath path]
prettyPath path
| V.null (unLengthArray path) = ""
| otherwise = T.concat [" via path: ", T.intercalate " -> " $ map pretty $ V.toList $ unLengthArray path]
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 sellass, "/", prettyAssetName buyass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]