Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,7 @@ import Cardano.Api.Ledger qualified as L

import Cardano.CLI.Byron.Genesis qualified as Byron
import Cardano.Crypto.ProtocolMagic qualified as Crypto
import Cardano.Ledger.BaseTypes qualified as L

import Data.Aeson (toJSON, (.=))
import Data.Aeson qualified as Aeson
Expand Down Expand Up @@ -58,7 +59,7 @@ mkGenesisParameters numPools actualNetworkWord32 byronGenesisFp shelleyGenesis =
byronPoolNumber = max 1 numPools -- byron genesis creation needs a >= 1 number of pools
gpStartTime = Shelley.sgSystemStart shelleyGenesis
gpProtocolParamsFile = byronGenesisFp
gpK = Byron.BlockCount 10
gpK = Byron.BlockCount . L.unNonZero $ Shelley.sgSecurityParam shelleyGenesis
protocolMagicId = Crypto.ProtocolMagicId actualNetworkWord32
gpProtocolMagic = Crypto.AProtocolMagic (L.Annotated protocolMagicId ()) Crypto.RequiresMagic
gpTestnetBalance =
Expand Down
Loading