-
Notifications
You must be signed in to change notification settings - Fork 25
Open
Labels
Description
Modify NodeConfig
to handle Dijkstra genesis file.
readCardanoGenesisConfig
:: MonadIOTransError GenesisConfigError t m
=> Maybe (CardanoEra era)
-- ^ Provide era witness to read Alonzo Genesis in an era-sensitive manner (see
-- 'Cardano.Api.Genesis.Internal.decodeAlonzGenesis' for more details)
-> NodeConfig
-> t m GenesisConfig
readCardanoGenesisConfig mEra enc = do
byronGenesis <- readByronGenesisConfig enc
ShelleyConfig shelleyGenesis shelleyGenesisHash <- readShelleyGenesisConfig enc
alonzoGenesis <- readAlonzoGenesisConfig mEra enc
conwayGenesis <- readConwayGenesisConfig enc
let dijkstraGenesis = DijkstraGenesis $ error "dijkstra"
let transCfg = Ledger.mkLatestTransitionConfig shelleyGenesis alonzoGenesis conwayGenesis dijkstraGenesis
pure $ GenesisCardano enc byronGenesis shelleyGenesisHash transCfg
Points of interest
instance FromJSON NodeConfig where