CLI deployment of Wst using Blockfrost #44
Conversation
amirmrad
force-pushed
the
amir/deploy-all
branch
from
e01b4ca to
88b78c6
Compare
| let root = DirectoryScriptRoot txi target | ||
| (tx, _) <- Env.withEnv $ Env.withOperator opEnv $ Env.withDirectoryFor root $ Env.withTransferFromOperator | ||
| $ Env.balanceTxEnv_ | ||
| $ BuildTx.mintProtocolParams |
|
The missing ToSchema instance can be added to |
amirmrad
force-pushed
the
amir/deploy-all
branch
from
320b7ec to
796332c
Compare
| opPkh <- asks (fst . Env.bteOperator . Env.operatorEnv) | ||
| addRequiredSignature opPkh | ||
|
|
||
| spendBlacklistOutput :: forall era env m. (MonadReader env m, Env.HasOperatorEnv era env, Env.HasTransferLogicEnv env, C.IsBabbageBasedEra era, C.HasScriptLanguageInEra C.PlutusScriptV3 era, MonadBuildTx era m) => C.TxIn -> m () |
There was a problem hiding this comment.
This is currently unused in the endpoints. I only needed it to remove a duplicate blacklist node I accidentally pushed on preview. We could later cleanup the interface and add an endpoint if need be.
|
|
||
| addConwayStakeCredentialCertificate credMinting | ||
| addConwayStakeCredentialCertificate credSpending | ||
| addConwayStakeCredentialCertificate credSeizeSpending |
There was a problem hiding this comment.
Registration step for transfer script was missing issuer spend (seize) stake script
| opPkh <- asks (fst . Env.bteOperator . Env.operatorEnv) | ||
| directory <- Query.registryNodes @era | ||
| seizeTxo <- head <$> Query.userProgrammableOutputs sanctionedCred | ||
| let getTxOutValue (C.TxOut _a v _d _r) = v |
There was a problem hiding this comment.
Just selects the UTxO with the largest non ada asset quantities ignoring the asset names.
To seize all utxos the endpoints must be repeatedly called until NoTokensToSeize is returned.
| . uDatum | ||
| Env.withEnv $ Env.withTransfer transferLogic (fmap (fmap getHash) (Query.blacklistNodes @era)) | ||
| nonHeadNodes (P.fromBuiltin . blnKey . uDatum -> hsh) = hsh /= "" | ||
| Env.withEnv $ Env.withTransfer transferLogic (fmap getHash . filter nonHeadNodes <$> (Query.blacklistNodes @era)) |
There was a problem hiding this comment.
Desezialization would fail in the case of the head node with an empty payment credential
j-mueller
left a comment
j-mueller
left a comment
There was a problem hiding this comment.
LGTM. The generated code needs to be updated
amirmrad
force-pushed
the
amir/deploy-all
branch
from
0039317 to
7ff604e
Compare
amirmrad
force-pushed
the
amir/deploy-all
branch
from
7ff604e to
4c40704
Compare
No description provided.