| Safe Haskell | Safe-Inferred |
|---|---|
| Language | GHC2021 |
Hydra.Chain.Direct.Tx
Description
Smart constructors for creating Hydra protocol transactions to be used in
the Direct way of talking to the main-chain.
This module also encapsulates the transaction format used when talking to the
cardano-node, which is currently different from the Cardano,
thus we have not yet "reached" isomorphism.
Synopsis
- newtype AbortObservation = AbortObservation {
- headId :: HeadId
- data CloseObservation = CloseObservation {
- threadOutput :: ClosedThreadOutput
- headId :: HeadId
- snapshotNumber :: SnapshotNumber
- data CollectComObservation = CollectComObservation {
- threadOutput :: OpenThreadOutput
- headId :: HeadId
- utxoHash :: UTxOHash
- data CommitObservation = CommitObservation {
- commitOutput :: (TxIn, TxOut CtxUTxO)
- party :: Party
- committed :: UTxO
- headId :: HeadId
- data ContestObservation = ContestObservation {
- contestedThreadOutput :: (TxIn, TxOut CtxUTxO)
- headId :: HeadId
- snapshotNumber :: SnapshotNumber
- contestationDeadline :: UTCTime
- contesters :: [PubKeyHash]
- data DecrementObservation = DecrementObservation {
- headId :: HeadId
- newVersion :: SnapshotVersion
- distributedOutputs :: [TxOut CtxUTxO]
- newtype FanoutObservation = FanoutObservation {
- headId :: HeadId
- data HeadObservation
- = NoHeadTx
- | Init InitObservation
- | Abort AbortObservation
- | Commit CommitObservation
- | CollectCom CollectComObservation
- | Deposit DepositObservation
- | Recover RecoverObservation
- | Increment IncrementObservation
- | Decrement DecrementObservation
- | Close CloseObservation
- | Contest ContestObservation
- | Fanout FanoutObservation
- data IncrementObservation = IncrementObservation {
- headId :: HeadId
- newVersion :: SnapshotVersion
- depositTxId :: TxId
- data InitObservation = InitObservation {
- initialThreadUTxO :: (TxIn, TxOut CtxUTxO)
- initials :: [(TxIn, TxOut CtxUTxO)]
- headId :: HeadId
- seedTxIn :: TxIn
- contestationPeriod :: ContestationPeriod
- parties :: [Party]
- participants :: [OnChainId]
- data InitialThreadOutput = InitialThreadOutput {
- initialThreadUTxO :: (TxIn, TxOut CtxUTxO)
- initialContestationPeriod :: ContestationPeriod
- initialParties :: [Party]
- data NotAnInitReason
- newtype UTxOHash = UTxOHash ByteString
- type UTxOWithScript = (TxIn, TxOut CtxUTxO, HashableScriptData)
- headSeedToTxIn :: MonadFail m => HeadSeed -> m TxIn
- observeHeadTx :: NetworkId -> UTxO -> Tx -> HeadObservation
- txInToHeadSeed :: TxIn -> HeadSeed
- headIdToPolicyId :: MonadFail m => HeadId -> m PolicyId
- observeCloseTx :: UTxO -> Tx -> Maybe CloseObservation
- observeCollectComTx :: UTxO -> Tx -> Maybe CollectComObservation
- observeCommitTx :: NetworkId -> UTxO -> Tx -> Maybe CommitObservation
- observeInitTx :: Tx -> Either NotAnInitReason InitObservation
- getHydraHeadV1TxName :: Tx -> Maybe Text
- observeAbortTx :: UTxO -> Tx -> Maybe AbortObservation
- observeIncrementTx :: UTxO -> Tx -> Maybe IncrementObservation
- observeDecrementTx :: UTxO -> Tx -> Maybe DecrementObservation
- observeContestTx :: UTxO -> Tx -> Maybe ContestObservation
- observeFanoutTx :: UTxO -> Tx -> Maybe FanoutObservation
- findStateToken :: TxOut ctx -> Maybe HeadId
- currencySymbolToHeadId :: MonadFail m => CurrencySymbol -> m HeadId
- findHeadAssetId :: TxOut ctx -> Maybe (PolicyId, AssetName)
Documentation
newtype AbortObservation Source #
Constructors
| AbortObservation | |
Fields
| |
Instances
| Arbitrary AbortObservation Source # | |
Defined in Hydra.Chain.Direct.Tx | |
| Generic AbortObservation Source # | |
Defined in Hydra.Chain.Direct.Tx Methods from :: AbortObservation -> Rep AbortObservation x Source # to :: Rep AbortObservation x -> AbortObservation Source # | |
| Show AbortObservation Source # | |
Defined in Hydra.Chain.Direct.Tx | |
| Eq AbortObservation Source # | |
Defined in Hydra.Chain.Direct.Tx Methods (==) :: AbortObservation -> AbortObservation -> Bool Source # (/=) :: AbortObservation -> AbortObservation -> Bool Source # | |
| type Rep AbortObservation Source # | |
Defined in Hydra.Chain.Direct.Tx type Rep AbortObservation = D1 ('MetaData "AbortObservation" "Hydra.Chain.Direct.Tx" "hydra-node-0.20.0-GJlHI5giGamBfggh7PdYBV" 'True) (C1 ('MetaCons "AbortObservation" 'PrefixI 'True) (S1 ('MetaSel ('Just "headId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 HeadId))) | |
data CloseObservation Source #
Constructors
| CloseObservation | |
Fields
| |
Instances
data CollectComObservation Source #
Constructors
| CollectComObservation | |
Fields
| |
Instances
data CommitObservation Source #
Full observation of a commit transaction.
Constructors
| CommitObservation | |
Fields
| |
Instances
data ContestObservation Source #
Constructors
| ContestObservation | |
Fields
| |
Instances
data DecrementObservation Source #
Constructors
| DecrementObservation | |
Fields
| |
Instances
newtype FanoutObservation Source #
Constructors
| FanoutObservation | |
Fields
| |
Instances
| Arbitrary FanoutObservation Source # | |
Defined in Hydra.Chain.Direct.Tx | |
| Generic FanoutObservation Source # | |
Defined in Hydra.Chain.Direct.Tx Methods from :: FanoutObservation -> Rep FanoutObservation x Source # to :: Rep FanoutObservation x -> FanoutObservation Source # | |
| Show FanoutObservation Source # | |
Defined in Hydra.Chain.Direct.Tx | |
| Eq FanoutObservation Source # | |
Defined in Hydra.Chain.Direct.Tx Methods (==) :: FanoutObservation -> FanoutObservation -> Bool Source # (/=) :: FanoutObservation -> FanoutObservation -> Bool Source # | |
| type Rep FanoutObservation Source # | |
Defined in Hydra.Chain.Direct.Tx type Rep FanoutObservation = D1 ('MetaData "FanoutObservation" "Hydra.Chain.Direct.Tx" "hydra-node-0.20.0-GJlHI5giGamBfggh7PdYBV" 'True) (C1 ('MetaCons "FanoutObservation" 'PrefixI 'True) (S1 ('MetaSel ('Just "headId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 HeadId))) | |
data HeadObservation Source #
Generalised type for arbitrary Head observations on-chain.
Constructors
Instances
data IncrementObservation Source #
Constructors
| IncrementObservation | |
Fields
| |
Instances
data InitObservation Source #
Data which can be observed from an initTx.
Constructors
| InitObservation | |
Fields
| |
Instances
data InitialThreadOutput Source #
Representation of the Head output after an Init transaction.
Constructors
| InitialThreadOutput | |
Fields
| |
Instances
data NotAnInitReason Source #
Constructors
| NoHeadOutput | |
| NotAHeadDatum | |
| NoSTFound | |
| NotAHeadPolicy |
Instances
Constructors
| UTxOHash ByteString |
Instances
| Arbitrary UTxOHash Source # | |
| FromJSON UTxOHash Source # | |
Defined in Hydra.Chain.Direct.Tx | |
| ToJSON UTxOHash Source # | |
Defined in Hydra.Chain.Direct.Tx Methods toEncoding :: UTxOHash -> Encoding toJSONList :: [UTxOHash] -> Value toEncodingList :: [UTxOHash] -> Encoding | |
| Generic UTxOHash Source # | |
| Show UTxOHash Source # | |
| Eq UTxOHash Source # | |
| type Rep UTxOHash Source # | |
Defined in Hydra.Chain.Direct.Tx type Rep UTxOHash = D1 ('MetaData "UTxOHash" "Hydra.Chain.Direct.Tx" "hydra-node-0.20.0-GJlHI5giGamBfggh7PdYBV" 'True) (C1 ('MetaCons "UTxOHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))) | |
type UTxOWithScript = (TxIn, TxOut CtxUTxO, HashableScriptData) Source #
Needed on-chain data to create Head transactions.
headSeedToTxIn :: MonadFail m => HeadSeed -> m TxIn Source #
observeHeadTx :: NetworkId -> UTxO -> Tx -> HeadObservation Source #
Observe any Hydra head transaction.
txInToHeadSeed :: TxIn -> HeadSeed Source #
headIdToPolicyId :: MonadFail m => HeadId -> m PolicyId Source #
Arguments
| :: UTxO | A UTxO set to lookup tx inputs |
| -> Tx | |
| -> Maybe CloseObservation |
Identify a close tx by lookup up the input spending the Head output and decoding its redeemer.
Arguments
| :: UTxO | A UTxO set to lookup tx inputs |
| -> Tx | |
| -> Maybe CollectComObservation |
Identify a collectCom tx by lookup up the input spending the Head output and decoding its redeemer.
Arguments
| :: NetworkId | |
| -> UTxO | A UTxO set to lookup tx inputs. Should at least contain the input spending from νInitial. |
| -> Tx | |
| -> Maybe CommitObservation |
Identify a commit tx by:
- Check that its spending from the init validator,
- Find the outputs which pays to the commit validator,
- Using the datum of that output, deserialize the committed output,
- Reconstruct the committed UTxO from both values (tx input and output).
observeInitTx :: Tx -> Either NotAnInitReason InitObservation Source #
Identify a init tx by checking the output value for holding tokens that are valid head tokens (checked by seed + policy).
getHydraHeadV1TxName :: Tx -> Maybe Text Source #
Get the metadata entry to identify Hydra transactions (for informational purposes).
Arguments
| :: UTxO | A UTxO set to lookup tx inputs |
| -> Tx | |
| -> Maybe AbortObservation |
Identify an abort tx by looking up the input spending the Head output and decoding its redeemer.
observeIncrementTx :: UTxO -> Tx -> Maybe IncrementObservation Source #
observeDecrementTx :: UTxO -> Tx -> Maybe DecrementObservation Source #
Arguments
| :: UTxO | A UTxO set to lookup tx inputs |
| -> Tx | |
| -> Maybe ContestObservation |
Identify a close tx by lookup up the input spending the Head output and decoding its redeemer.
Arguments
| :: UTxO | A UTxO set to lookup tx inputs |
| -> Tx | |
| -> Maybe FanoutObservation |
Identify a fanout tx by lookup up the input spending the Head output and decoding its redeemer.
findStateToken :: TxOut ctx -> Maybe HeadId Source #
Find (if it exists) the head identifier contained in given TxOut.
currencySymbolToHeadId :: MonadFail m => CurrencySymbol -> m HeadId Source #
findHeadAssetId :: TxOut ctx -> Maybe (PolicyId, AssetName) Source #