Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Synopsis
- type family ApplyTxErr blk ∷ Type
- newtype ByteSize32 = ByteSize32 {}
- class HasTxId tx ⇒ ConvertRawTxId tx where
- toRawTxIdHash ∷ TxId tx → ShortByteString
- data family GenTx blk ∷ Type
- type GenTxId blk = TxId (GenTx blk)
- class HasByteSize a where
- txMeasureByteSize ∷ a → ByteSize32
- class (Show (TxId tx), Ord (TxId tx), NoThunks (TxId tx)) ⇒ HasTxId tx where
- class HasTxs blk where
- extractTxs ∷ blk → [GenTx blk]
- newtype IgnoringOverflow a = IgnoringOverflow {}
- class (UpdateLedger blk, TxLimits blk, NoThunks (GenTx blk), NoThunks (Validated (GenTx blk)), NoThunks (Ticked (LedgerState blk)), Show (GenTx blk), Show (Validated (GenTx blk)), Show (ApplyTxErr blk)) ⇒ LedgerSupportsMempool blk where
- txInvariant ∷ GenTx blk → Bool
- applyTx ∷ LedgerConfig blk → WhetherToIntervene → SlotNo → GenTx blk → TickedLedgerState blk → Except (ApplyTxErr blk) (TickedLedgerState blk, Validated (GenTx blk))
- reapplyTx ∷ HasCallStack ⇒ LedgerConfig blk → SlotNo → Validated (GenTx blk) → TickedLedgerState blk → Except (ApplyTxErr blk) (TickedLedgerState blk)
- txForgetValidated ∷ Validated (GenTx blk) → GenTx blk
- data family TxId tx ∷ Type
- class (Measure (TxMeasure blk), HasByteSize (TxMeasure blk), NoThunks (TxMeasure blk), Show (TxMeasure blk)) ⇒ TxLimits blk where
- type TxMeasure blk
- txMeasure ∷ LedgerConfig blk → TickedLedgerState blk → GenTx blk → Except (ApplyTxErr blk) (TxMeasure blk)
- blockCapacityTxMeasure ∷ LedgerConfig blk → TickedLedgerState blk → TxMeasure blk
- data family Validated x ∷ Type
- data WhetherToIntervene
Documentation
type family ApplyTxErr blk ∷ Type Source #
Updating the ledger with a single transaction may result in a different error type as when updating it with a block
Instances
type ApplyTxErr (HardForkBlock xs) Source # | |
type ApplyTxErr (DualBlock m a) Source # | |
Defined in Ouroboros.Consensus.Ledger.Dual |
newtype ByteSize32 Source #
We intentionally do not declare a Num
instance! We prefer ByteSize32
to occur explicitly in the code where possible, for
legibility/perspicuousness. We also do not need nor want subtraction.
This data type measures the size of a transaction, the sum of the sizes of txs in a block, the sum of the sizes of the txs in the mempool, etc. None of those will ever need to represent gigabytes, so 32 bits suffice. But 16 bits would not.
This is modular arithmetic, so uses need to be concerned with overflow. For
example, see the related guard in
pureTryAddTx
. One important element is
anticipating the possibility of very large summands injected by the
adversary.
There is a temptation to use Natural
here, since it can never overflow.
However, some points in the interface do not easily handle Natural
s, such
as encoders. Thus Natural
would merely defer the overflow concern, and
even risks instilling a false sense that overflow need not be considered at
all.
Instances
class HasTxId tx ⇒ ConvertRawTxId tx where Source #
Extract the raw hash bytes from a TxId
.
toRawTxIdHash ∷ TxId tx → ShortByteString Source #
NOTE: The composition
must satisfy the same
properties as defined in the docs of toRawTxIdHash
. txId
txId
.
data family GenTx blk ∷ Type Source #
Generalized transaction
The mempool (and, accordingly, blocks) consist of "generalized transactions"; this could be "proper" transactions (transferring funds) but also other kinds of things such as update proposals, delegations, etc.
Instances
class HasByteSize a where Source #
txMeasureByteSize ∷ a → ByteSize32 Source #
The byte size component (of TxMeasure
)
Instances
class (Show (TxId tx), Ord (TxId tx), NoThunks (TxId tx)) ⇒ HasTxId tx where Source #
Transactions with an identifier
The mempool will use these to locate transactions, so two different transactions should have different identifiers.
NOTE: a TxId
must be unique up to ledger rules, i.e., two GenTx
s with
the same TxId
must be the same transaction according to the ledger.
However, we do not assume that a TxId
uniquely determines a GenTx
:
two GenTx
s with the same TxId
can differ in, e.g., witnesses.
Should be cheap as this will be called often.
Instances
CanHardFork xs ⇒ HasTxId (GenTx (HardForkBlock xs)) Source # | |
Defined in Ouroboros.Consensus.HardFork.Combinator.Mempool txId ∷ GenTx (HardForkBlock xs) → TxId (GenTx (HardForkBlock xs)) Source # | |
Bridge m a ⇒ HasTxId (GenTx (DualBlock m a)) Source # | |
class HasTxs blk where Source #
Collect all transactions from a block
This is used for tooling only. We don't require it as part of RunNode (and cannot, because we cannot give an instance for the dual ledger).
extractTxs ∷ blk → [GenTx blk] Source #
Return the transactions part of the given block in no particular order.
Instances
All HasTxs xs ⇒ HasTxs (HardForkBlock xs) Source # | |
Defined in Ouroboros.Consensus.HardFork.Combinator.Mempool extractTxs ∷ HardForkBlock xs → [GenTx (HardForkBlock xs)] Source # |
newtype IgnoringOverflow a Source #
has the same semantics as IgnoringOverflow
aa
, except it ignores
the fact that a
can overflow.
For example,
is not lawful, because overflow violates
the lattice-ordered monoid law. But Measure
Word32
is lawful, since it explicitly ignores that case.Measure
(IgnoringOverflow
Word32
)
WARNING: anywhere this type occurs is a very strong indicator that overflow will break assumptions, so overflow must therefore be guarded against.
TODO upstream this to the measure
package
Instances
class (UpdateLedger blk, TxLimits blk, NoThunks (GenTx blk), NoThunks (Validated (GenTx blk)), NoThunks (Ticked (LedgerState blk)), Show (GenTx blk), Show (Validated (GenTx blk)), Show (ApplyTxErr blk)) ⇒ LedgerSupportsMempool blk where Source #
txInvariant ∷ GenTx blk → Bool Source #
Check whether the internal invariants of the transaction hold.
∷ LedgerConfig blk | |
→ WhetherToIntervene | |
→ SlotNo | Slot number of the block containing the tx |
→ GenTx blk | |
→ TickedLedgerState blk | |
→ Except (ApplyTxErr blk) (TickedLedgerState blk, Validated (GenTx blk)) |
Apply an unvalidated transaction
The mempool expects that the ledger checks the sanity of the transaction' size. The mempool implementation will add any valid transaction as long as there is at least one byte free in the mempool.
∷ HasCallStack | |
⇒ LedgerConfig blk | |
→ SlotNo | Slot number of the block containing the tx |
→ Validated (GenTx blk) | |
→ TickedLedgerState blk | |
→ Except (ApplyTxErr blk) (TickedLedgerState blk) |
Apply a previously validated transaction to a potentially different ledger state
When we re-apply a transaction to a potentially different ledger state expensive checks such as cryptographic hashes can be skipped, but other checks (such as checking for double spending) must still be done.
txForgetValidated ∷ Validated (GenTx blk) → GenTx blk Source #
Discard the evidence that transaction has been previously validated
Instances
data family TxId tx ∷ Type Source #
A generalized transaction, GenTx
, identifier.
Instances
class (Measure (TxMeasure blk), HasByteSize (TxMeasure blk), NoThunks (TxMeasure blk), Show (TxMeasure blk)) ⇒ TxLimits blk where Source #
Each block has its limits of how many transactions it can hold. That limit is compared against the sum of measurements taken of each of the transactions in that block.
How we measure the transaction depends of the era that this transaction belongs to (more specifically it depends on the block type to which this transaction will be added). For initial eras (like Byron and initial generations of Shelley based eras) this measure was simply a byte size (block could not be bigger then given size - in bytes - specified by the ledger state). In subsequent eras (starting with Alonzo) this measure was a bit more complex as it had to take other factors into account (like execution units). For details please see the individual instances for the TxLimits.
∷ LedgerConfig blk | used at least by HFC's composition logic |
→ TickedLedgerState blk | |
→ GenTx blk | |
→ Except (ApplyTxErr blk) (TxMeasure blk) |
The various sizes (bytes, Plutus script ExUnits, etc) of a tx /when it's in a block/
This size is used to compute how many transaction we can put in a block when forging one.
The byte size component in particular might differ from the size of the serialisation used to send and receive the transaction across the network. For example, CBOR-in-CBOR could be used when sending the transaction across the network, requiring a few extra bytes compared to the actual in-block serialisation. Another example is the transaction of the hard-fork combinator which will include an envelope indicating its era when sent across the network. However, when embedded in the respective era's block, there is no need for such envelope. An example from upstream is that the Cardano ledger's "Segregated Witness" encoding scheme contributes to the encoding overhead.
INVARIANT Assuming no hash collisions, the size should be the same in any state in which the transaction is valid. For example, it's acceptable to simply omit the size of ref scripts that could not be found, since their absence implies the tx is invalid. In fact, that invalidity could be reported by this function, but it need not be.
INVARIANT Right x = txMeasure cfg st tx
implies @x <=
'blockCapacityTxMeasure cfg st'. Otherwise, the mempool could block
forever.
Returns an exception if and only if the transaction violates the per-tx limits.
blockCapacityTxMeasure Source #
∷ LedgerConfig blk | at least for symmetry with |
→ TickedLedgerState blk | |
→ TxMeasure blk |
What is the allowed capacity for the txs in an individual block?
Instances
CanHardFork xs ⇒ TxLimits (HardForkBlock xs) Source # | |
Defined in Ouroboros.Consensus.HardFork.Combinator.Mempool type TxMeasure (HardForkBlock xs) Source # txMeasure ∷ LedgerConfig (HardForkBlock xs) → TickedLedgerState (HardForkBlock xs) → GenTx (HardForkBlock xs) → Except (ApplyTxErr (HardForkBlock xs)) (TxMeasure (HardForkBlock xs)) Source # blockCapacityTxMeasure ∷ LedgerConfig (HardForkBlock xs) → TickedLedgerState (HardForkBlock xs) → TxMeasure (HardForkBlock xs) Source # | |
Bridge m a ⇒ TxLimits (DualBlock m a) Source # | |
Defined in Ouroboros.Consensus.Ledger.Dual txMeasure ∷ LedgerConfig (DualBlock m a) → TickedLedgerState (DualBlock m a) → GenTx (DualBlock m a) → Except (ApplyTxErr (DualBlock m a)) (TxMeasure (DualBlock m a)) Source # blockCapacityTxMeasure ∷ LedgerConfig (DualBlock m a) → TickedLedgerState (DualBlock m a) → TxMeasure (DualBlock m a) Source # |
data family Validated x ∷ Type Source #
" Validated " transaction or block
The ledger defines how to validate transactions and blocks. It's possible the type before and after validation may be distinct (eg Alonzo transactions), which originally motivated this family.
We also gain the related benefit that certain interface functions, such as those that reapply blocks, can have a more precise type now. TODO
Similarly, the Node-to-Client mini protocols can explicitly indicate that the
client trusts the blocks from the local server, by having the server send
Validated
blocks to the client. TODO
Note that validation has different implications for a transaction than for a block. In particular, a validated transaction can be " reapplied " to different ledger states, whereas a validated block must only be " reapplied " to the exact same ledger state (eg as part of rebuilding from an on-disk ledger snapshot).
Since the ledger defines validation, see the ledger details for concrete
examples of what determines the validity (wrt to a LedgerState
) of a
transaction and/or block. Example properties include: a transaction's claimed
inputs exist and are still unspent, a block carries a sufficient
cryptographic signature, etc.
Instances
data WhetherToIntervene Source #
A flag indicating whether the mempool should reject a valid-but-problematic transaction, in order to to protect its author from penalties etc
The primary example is that, as of the Alonzo ledger, a valid transaction can carry an invalid script. If a remote peer sends us such a transaction (over a Node-to-Node protocol), we include it in a block so that the ledger will penalize them them for the invalid script: they wasted our resources by forcing us to run the script to determine it's invalid. But if our local wallet -- which we trust by assumption -- sends us such a transaction (over a Node-to-Client protocol), we would be a good neighbor by rejecting that transaction: they must have made some sort of mistake, and we don't want the ledger to penalize them.
DoNotIntervene | We do not trust remote peers, so if a problematic-yet-valid transaction arrives over NTN, we accept it; it will end up in a block and the ledger will penalize them for it. |
Intervene | We trust local clients, so if a problematic-yet-valid transaction arrives over NTC, we reject it in order to avoid the ledger penalizing them for it. |
Instances
Show WhetherToIntervene Source # | |
Defined in Ouroboros.Consensus.Ledger.SupportsMempool showsPrec ∷ Int → WhetherToIntervene → ShowS # show ∷ WhetherToIntervene → String # showList ∷ [WhetherToIntervene] → ShowS # |