Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- type PTuple a b = PDataSum '['["_0" := a, "_1" := b]]
- newtype PScriptContext (s :: S) = PScriptContext (Term s (PDataRecord '["txInfo" := PTxInfo, "purpose" := PScriptPurpose]))
- newtype PTxInfo (s :: S) = PTxInfo (Term s (PDataRecord '["inputs" := PBuiltinList PTxInInfo, "outputs" := PBuiltinList PTxOut, "fee" := PValue 'Sorted 'Positive, "mint" := PValue 'Sorted 'NoGuarantees, "dcert" := PBuiltinList PDCert, "wdrl" := PBuiltinList (PAsData (PTuple PStakingCredential PInteger)), "validRange" := PPOSIXTimeRange, "signatories" := PBuiltinList (PAsData PPubKeyHash), "datums" := PBuiltinList (PAsData (PTuple PDatumHash PDatum)), "id" := PTxId]))
- data PScriptPurpose (s :: S)
- = PMinting (Term s (PDataRecord '["_0" := PCurrencySymbol]))
- | PSpending (Term s (PDataRecord '["_0" := PTxOutRef]))
- | PRewarding (Term s (PDataRecord '["_0" := PStakingCredential]))
- | PCertifying (Term s (PDataRecord '["_0" := PDCert]))
Documentation
newtype PScriptContext (s :: S) Source #
Script context consists of the script purpose and the pending transaction info.
PScriptContext (Term s (PDataRecord '["txInfo" := PTxInfo, "purpose" := PScriptPurpose])) |
Instances
newtype PTxInfo (s :: S) Source #
A pending transaction. This is the view as seen by the validator script.
PTxInfo (Term s (PDataRecord '["inputs" := PBuiltinList PTxInInfo, "outputs" := PBuiltinList PTxOut, "fee" := PValue 'Sorted 'Positive, "mint" := PValue 'Sorted 'NoGuarantees, "dcert" := PBuiltinList PDCert, "wdrl" := PBuiltinList (PAsData (PTuple PStakingCredential PInteger)), "validRange" := PPOSIXTimeRange, "signatories" := PBuiltinList (PAsData PPubKeyHash), "datums" := PBuiltinList (PAsData (PTuple PDatumHash PDatum)), "id" := PTxId])) |
Instances
data PScriptPurpose (s :: S) Source #
The purpose of the script that is currently running
PMinting (Term s (PDataRecord '["_0" := PCurrencySymbol])) | |
PSpending (Term s (PDataRecord '["_0" := PTxOutRef])) | |
PRewarding (Term s (PDataRecord '["_0" := PStakingCredential])) | |
PCertifying (Term s (PDataRecord '["_0" := PDCert])) |