Safe Haskell | None |
---|---|
Language | Haskell2010 |
Synopsis
-
data
DCert
crypto
- = DCertDeleg !( DelegCert crypto)
- | DCertPool !( PoolCert crypto)
- | DCertGenesis !( GenesisDelegCert crypto)
- | DCertMir !( MIRCert crypto)
-
data
DelegCert
crypto
- = RegKey !( StakeCredential crypto)
- | DeRegKey !( StakeCredential crypto)
- | Delegate !( Delegation crypto)
-
data
Delegation
crypto =
Delegation
{
- _delegator :: !( StakeCredential crypto)
- _delegatee :: !( KeyHash ' StakePool crypto)
- data GenesisDelegCert crypto = GenesisDelegCert !( KeyHash ' Genesis crypto) !( KeyHash ' GenesisDelegate crypto) !( Hash crypto ( VerKeyVRF crypto))
-
data
MIRCert
crypto =
MIRCert
{
- mirPot :: MIRPot
- mirRewards :: MIRTarget crypto
- data MIRPot
-
data
MIRTarget
crypto
- = StakeAddressesMIR ( Map ( Credential ' Staking crypto) DeltaCoin )
- | SendToOppositePotMIR Coin
-
data
PoolCert
crypto
- = RegPool !( PoolParams crypto)
- | RetirePool !( KeyHash ' StakePool crypto) ! EpochNo
-
data
PoolMetadata
=
PoolMetadata
{
- _poolMDUrl :: ! Url
- _poolMDHash :: ! ByteString
-
data
PoolParams
crypto =
PoolParams
{
- _poolId :: !( KeyHash ' StakePool crypto)
- _poolVrf :: !( Hash crypto ( VerKeyVRF crypto))
- _poolPledge :: ! Coin
- _poolCost :: ! Coin
- _poolMargin :: ! UnitInterval
- _poolRAcnt :: !( RewardAcnt crypto)
- _poolOwners :: !( Set ( KeyHash ' Staking crypto))
- _poolRelays :: !( StrictSeq StakePoolRelay )
- _poolMD :: !( StrictMaybe PoolMetadata )
- data Ptr = Ptr ! SlotNo ! TxIx ! CertIx
-
data
RewardAcnt
crypto =
RewardAcnt
{
- getRwdNetwork :: ! Network
- getRwdCred :: !( Credential ' Staking crypto)
-
newtype
StakeCreds
crypto =
StakeCreds
{
- unStakeCreds :: Map ( Credential ' Staking crypto) SlotNo
-
data
StakePoolRelay
- = SingleHostAddr !( StrictMaybe Port ) !( StrictMaybe IPv4 ) !( StrictMaybe IPv6 )
- | SingleHostName !( StrictMaybe Port ) ! DnsName
- | MultiHostName ! DnsName
-
newtype
TxBody
era
where
- TxBodyConstr ( MemoBytes ( TxBodyRaw era))
- pattern TxBody :: ( Era era, FromCBOR ( PParamsDelta era), TransTxBody ToCBOR era) => Set ( TxIn ( Crypto era)) -> StrictSeq ( TxOut era) -> StrictSeq ( DCert ( Crypto era)) -> Wdrl ( Crypto era) -> Coin -> SlotNo -> StrictMaybe ( Update era) -> StrictMaybe ( AuxiliaryDataHash ( Crypto era)) -> TxBody era
-
data
TxBodyRaw
era =
TxBodyRaw
{
- _inputsX :: !( Set ( TxIn ( Crypto era)))
- _outputsX :: !( StrictSeq ( TxOut era))
- _certsX :: !( StrictSeq ( DCert ( Crypto era)))
- _wdrlsX :: !( Wdrl ( Crypto era))
- _txfeeX :: ! Coin
- _ttlX :: ! SlotNo
- _txUpdateX :: !( StrictMaybe ( Update era))
- _mdHashX :: !( StrictMaybe ( AuxiliaryDataHash ( Crypto era)))
- data EraIndependentTxBody
-
data
TxOut
era
where
- TxOutCompact !( CompactAddr ( Crypto era)) !( CompactForm ( Value era))
- pattern TxOut :: ( Era era, Show ( Value era), Compactible ( Value era)) => Addr ( Crypto era) -> Value era -> TxOut era
- data Url
-
newtype
Wdrl
crypto =
Wdrl
{
- unWdrl :: Map ( RewardAcnt crypto) Coin
-
data
WitVKey
kr crypto
where
- pattern WitVKey :: ( Typeable kr, Crypto crypto) => VKey kr crypto -> SignedDSIGN crypto ( Hash crypto EraIndependentTxBody ) -> WitVKey kr crypto
- witKeyHash :: WitVKey kr crypto -> KeyHash ' Witness crypto
- data SizeOfPoolOwners = SizeOfPoolOwners
- data SizeOfPoolRelays = SizeOfPoolRelays
- type TransTxId (c :: Type -> Constraint ) era = ( HashAnnotated ( TxBody era) EraIndependentTxBody ( Crypto era), ToCBOR ( TxBody era), ToCBOR ( TxOut era), TransValue ToCBOR era, TransValue c era)
- type TransTxOut (c :: Type -> Constraint ) era = (c ( Value era), Compactible ( Value era))
- type TransTxBody (c :: Type -> Constraint ) era = (c ( TxOut era), c ( PParamsDelta era), HashAnnotated ( TxBody era) EraIndependentTxBody ( Crypto era))
Documentation
A heavyweight certificate.
DCertDeleg !( DelegCert crypto) | |
DCertPool !( PoolCert crypto) | |
DCertGenesis !( GenesisDelegCert crypto) | |
DCertMir !( MIRCert crypto) |
Instances
data DelegCert crypto Source #
RegKey !( StakeCredential crypto) |
A stake key registration certificate. |
DeRegKey !( StakeCredential crypto) |
A stake key deregistration certificate. |
Delegate !( Delegation crypto) |
A stake delegation certificate. |
Instances
data Delegation crypto Source #
The delegation of one stake key to another.
Delegation | |
|
Instances
data GenesisDelegCert crypto Source #
Genesis key delegation certificate
GenesisDelegCert !( KeyHash ' Genesis crypto) !( KeyHash ' GenesisDelegate crypto) !( Hash crypto ( VerKeyVRF crypto)) |
Instances
Move instantaneous rewards certificate
MIRCert | |
|
Instances
Eq ( MIRCert crypto) Source # | |
Show ( MIRCert crypto) Source # | |
Generic ( MIRCert crypto) Source # | |
NFData ( MIRCert crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
Crypto crypto => ToCBOR ( MIRCert crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
Crypto crypto => FromCBOR ( MIRCert crypto) Source # | |
NoThunks ( MIRCert crypto) Source # | |
type Rep ( MIRCert crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody
type
Rep
(
MIRCert
crypto) =
D1
('
MetaData
"MIRCert" "Cardano.Ledger.Shelley.TxBody" "cardano-ledger-shelley-0.1.0.0-4LNBTpyKcsy6EW18a3tTt2" '
False
) (
C1
('
MetaCons
"MIRCert" '
PrefixI
'
True
) (
S1
('
MetaSel
('
Just
"mirPot") '
NoSourceUnpackedness
'
NoSourceStrictness
'
DecidedLazy
) (
Rec0
MIRPot
)
:*:
S1
('
MetaSel
('
Just
"mirRewards") '
NoSourceUnpackedness
'
NoSourceStrictness
'
DecidedLazy
) (
Rec0
(
MIRTarget
crypto))))
|
Instances
Bounded MIRPot Source # | |
Enum MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxBody succ :: MIRPot -> MIRPot Source # pred :: MIRPot -> MIRPot Source # toEnum :: Int -> MIRPot Source # fromEnum :: MIRPot -> Int Source # enumFrom :: MIRPot -> [ MIRPot ] Source # enumFromThen :: MIRPot -> MIRPot -> [ MIRPot ] Source # enumFromTo :: MIRPot -> MIRPot -> [ MIRPot ] Source # enumFromThenTo :: MIRPot -> MIRPot -> MIRPot -> [ MIRPot ] Source # |
|
Eq MIRPot Source # | |
Ord MIRPot Source # | |
Show MIRPot Source # | |
Generic MIRPot Source # | |
NFData MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
ToCBOR MIRPot Source # | |
FromCBOR MIRPot Source # | |
NoThunks MIRPot Source # | |
type Rep MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
data MIRTarget crypto Source #
MIRTarget specifies if funds from either the reserves or the treasury are to be handed out to a collection of reward accounts or instead transfered to the opposite pot.
StakeAddressesMIR ( Map ( Credential ' Staking crypto) DeltaCoin ) | |
SendToOppositePotMIR Coin |
Instances
RegPool !( PoolParams crypto) |
A stake pool registration certificate. |
RetirePool !( KeyHash ' StakePool crypto) ! EpochNo |
A stake pool retirement certificate. |
Instances
Eq ( PoolCert crypto) Source # | |
Show ( PoolCert crypto) Source # | |
Generic ( PoolCert crypto) Source # | |
NFData ( PoolCert crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
NoThunks ( PoolCert crypto) Source # | |
type Rep ( PoolCert crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody
type
Rep
(
PoolCert
crypto) =
D1
('
MetaData
"PoolCert" "Cardano.Ledger.Shelley.TxBody" "cardano-ledger-shelley-0.1.0.0-4LNBTpyKcsy6EW18a3tTt2" '
False
) (
C1
('
MetaCons
"RegPool" '
PrefixI
'
False
) (
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedStrict
) (
Rec0
(
PoolParams
crypto)))
:+:
C1
('
MetaCons
"RetirePool" '
PrefixI
'
False
) (
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedStrict
) (
Rec0
(
KeyHash
'
StakePool
crypto))
:*:
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedStrict
) (
Rec0
EpochNo
)))
|
data PoolMetadata Source #
PoolMetadata | |
|
Instances
data PoolParams crypto Source #
A stake pool.
PoolParams | |
|
Instances
Pointer to a slot number, transaction index and an index in certificate list.
Instances
Eq Ptr | |
Ord Ptr | |
Show Ptr | |
Generic Ptr | |
NFData Ptr | |
Defined in Cardano.Ledger.Credential |
|
ToCBOR Ptr | |
FromCBOR Ptr | |
ToCBORGroup Ptr | |
FromCBORGroup Ptr | |
Defined in Cardano.Ledger.Credential fromCBORGroup :: Decoder s Ptr Source # |
|
NoThunks Ptr | |
type Rep Ptr | |
Defined in Cardano.Ledger.Credential
type
Rep
Ptr
=
D1
('
MetaData
"Ptr" "Cardano.Ledger.Credential" "cardano-ledger-core-0.1.0.0-3EJt5rxsPizAWHDEqGPh9V" '
False
) (
C1
('
MetaCons
"Ptr" '
PrefixI
'
False
) (
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedUnpack
) (
Rec0
SlotNo
)
:*:
(
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedUnpack
) (
Rec0
TxIx
)
:*:
S1
('
MetaSel
('
Nothing
::
Maybe
Symbol
) '
NoSourceUnpackedness
'
SourceStrict
'
DecidedUnpack
) (
Rec0
CertIx
))))
|
data RewardAcnt crypto Source #
An account based address for rewards
RewardAcnt | |
|
Instances
newtype StakeCreds crypto Source #
StakeCreds | |
|
Instances
data StakePoolRelay Source #
SingleHostAddr !( StrictMaybe Port ) !( StrictMaybe IPv4 ) !( StrictMaybe IPv6 ) |
One or both of IPv4 & IPv6 |
SingleHostName !( StrictMaybe Port ) ! DnsName |
An
|
MultiHostName ! DnsName |
A
|
Instances
TxBodyConstr ( MemoBytes ( TxBodyRaw era)) |
pattern TxBody :: ( Era era, FromCBOR ( PParamsDelta era), TransTxBody ToCBOR era) => Set ( TxIn ( Crypto era)) -> StrictSeq ( TxOut era) -> StrictSeq ( DCert ( Crypto era)) -> Wdrl ( Crypto era) -> Coin -> SlotNo -> StrictMaybe ( Update era) -> StrictMaybe ( AuxiliaryDataHash ( Crypto era)) -> TxBody era |
Pattern for use by external users |
Instances
TxBodyRaw | |
|
Instances
data EraIndependentTxBody Source #
Instances
( Era era, c ~ Crypto era) => HashAnnotated ( TxBody era) EraIndependentTxBody c Source # | |
Defined in Cardano.Ledger.Shelley.TxBody indexProxy :: TxBody era -> Proxy EraIndependentTxBody Source # |
The output of a UTxO.
TxOutCompact !( CompactAddr ( Crypto era)) !( CompactForm ( Value era)) |
pattern TxOut :: ( Era era, Show ( Value era), Compactible ( Value era)) => Addr ( Crypto era) -> Value era -> TxOut era |
Instances
( Compactible v, v ~ Value era) => HasField "value" ( TxOut era) v Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
TransTxOut Eq era => Eq ( TxOut era) Source # | |
( TransTxOut Show era, Era era) => Show ( TxOut era) Source # | |
NFData ( TxOut era) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
( Era era, TransTxOut ToCBOR era) => ToCBOR ( TxOut era) Source # | |
( Era era, TransTxOut DecodeNonNegative era, Show ( Value era)) => FromCBOR ( TxOut era) Source # | |
( Era era, TransTxOut DecodeNonNegative era, Show ( Value era)) => FromSharedCBOR ( TxOut era) Source # | |
( Crypto ( Crypto era), HeapWords ( CompactForm ( Value era))) => HeapWords ( TxOut era) Source # | |
NoThunks ( TxOut era) Source # | |
type Share ( TxOut era) Source # | |
Wdrl | |
|
Instances
Crypto era ~ crypto => HasField "wdrls" ( TxBody era) ( Wdrl crypto) Source # | |
Eq ( Wdrl crypto) Source # | |
Show ( Wdrl crypto) Source # | |
Generic ( Wdrl crypto) Source # | |
NFData ( Wdrl crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody |
|
Crypto crypto => ToCBOR ( Wdrl crypto) Source # | |
Crypto crypto => FromCBOR ( Wdrl crypto) Source # | |
NoThunks ( Wdrl crypto) Source # | |
type Rep ( Wdrl crypto) Source # | |
Defined in Cardano.Ledger.Shelley.TxBody
type
Rep
(
Wdrl
crypto) =
D1
('
MetaData
"Wdrl" "Cardano.Ledger.Shelley.TxBody" "cardano-ledger-shelley-0.1.0.0-4LNBTpyKcsy6EW18a3tTt2" '
True
) (
C1
('
MetaCons
"Wdrl" '
PrefixI
'
True
) (
S1
('
MetaSel
('
Just
"unWdrl") '
NoSourceUnpackedness
'
NoSourceStrictness
'
DecidedLazy
) (
Rec0
(
Map
(
RewardAcnt
crypto)
Coin
))))
|
data WitVKey kr crypto where Source #
Proof/Witness that a transaction is authorized by the given key holder.
pattern WitVKey :: ( Typeable kr, Crypto crypto) => VKey kr crypto -> SignedDSIGN crypto ( Hash crypto EraIndependentTxBody ) -> WitVKey kr crypto |
Instances
data SizeOfPoolOwners Source #
The size of the
_poolOwners
Set
. Only used to compute size of encoded
PoolParams
.
Instances
ToCBOR SizeOfPoolOwners Source # | |
Defined in Cardano.Ledger.Shelley.TxBody toCBOR :: SizeOfPoolOwners -> Encoding Source # encodedSizeExpr :: ( forall t. ToCBOR t => Proxy t -> Size ) -> Proxy SizeOfPoolOwners -> Size Source # encodedListSizeExpr :: ( forall t. ToCBOR t => Proxy t -> Size ) -> Proxy [ SizeOfPoolOwners ] -> Size Source # |
data SizeOfPoolRelays Source #
The size of the
_poolRelays
Set
. Only used to compute size of encoded
PoolParams
.
Instances
ToCBOR SizeOfPoolRelays Source # | |
Defined in Cardano.Ledger.Shelley.TxBody toCBOR :: SizeOfPoolRelays -> Encoding Source # encodedSizeExpr :: ( forall t. ToCBOR t => Proxy t -> Size ) -> Proxy SizeOfPoolRelays -> Size Source # encodedListSizeExpr :: ( forall t. ToCBOR t => Proxy t -> Size ) -> Proxy [ SizeOfPoolRelays ] -> Size Source # |
type TransTxId (c :: Type -> Constraint ) era = ( HashAnnotated ( TxBody era) EraIndependentTxBody ( Crypto era), ToCBOR ( TxBody era), ToCBOR ( TxOut era), TransValue ToCBOR era, TransValue c era) Source #
type TransTxOut (c :: Type -> Constraint ) era = (c ( Value era), Compactible ( Value era)) Source #
type TransTxBody (c :: Type -> Constraint ) era = (c ( TxOut era), c ( PParamsDelta era), HashAnnotated ( TxBody era) EraIndependentTxBody ( Crypto era)) Source #