Use exampleDijkstraGenesis value

Author: Jordan Millar

cardano-api/cardano-api.cabal

@@ -125,13 +125,13 @@ library
     cardano-data >=1.0,
     cardano-ledger-allegra >=1.7,
     cardano-ledger-alonzo >=1.13,
-    cardano-ledger-api >=1.11,
+    cardano-ledger-api:{cardano-ledger-api, testlib} >=1.11,
     cardano-ledger-babbage >=1.11,
     cardano-ledger-binary >=1.6,
     cardano-ledger-byron >=1.2,
     cardano-ledger-conway >=1.19,
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.17,
-    cardano-ledger-dijkstra >= 0.1,
+    cardano-ledger-dijkstra:{cardano-ledger-dijkstra} >= 0.1,
     cardano-ledger-mary >=1.8,
     cardano-ledger-shelley >=1.16,
     cardano-protocol-tpraos >=1.4,
@@ -296,7 +296,6 @@ library gen
     Test.Gen.Cardano.Api.Era
     Test.Gen.Cardano.Api.Hardcoded
     Test.Gen.Cardano.Api.Metadata
-    Test.Gen.Cardano.Api.Orphans
     Test.Gen.Cardano.Api.ProtocolParameters
     Test.Gen.Cardano.Api.Typed
     Test.Gen.Cardano.Crypto.Seed
@@ -317,11 +316,9 @@ library gen
     cardano-ledger-byron-test >=1.5,
     cardano-ledger-conway:testlib,
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.14,
-    cardano-ledger-dijkstra >=0.1,
     cardano-ledger-shelley >=1.13,
     containers,
     filepath,
-    generic-random,
     hedgehog >=1.1,
     hedgehog-extras,
     hedgehog-quickcheck,
@@ -345,7 +342,6 @@ test-suite cardano-api-test
     cardano-binary,
     cardano-crypto,
     cardano-crypto-class ^>=2.2.1,
-    cardano-crypto-test ^>=1.6,
     cardano-crypto-tests ^>=2.2,
     cardano-ledger-alonzo,
     cardano-ledger-api >=1.9,

cardano-api/gen/Test/Gen/Cardano/Api/Era.hs

@@ -17,8 +17,6 @@ import Cardano.Ledger.Core qualified as Ledger
 
 import Data.Functor.Identity qualified as Ledger
 
-import Test.Gen.Cardano.Api.Orphans ()
-
 import Test.Cardano.Ledger.Conway.Arbitrary ()
 import Test.Cardano.Ledger.Core.Arbitrary ()
 

cardano-api/gen/Test/Gen/Cardano/Api/Orphans.hs

@@ -159,7 +159,6 @@ import Cardano.Ledger.BaseTypes qualified as Ledger
 import Cardano.Ledger.Binary (DecoderError)
 import Cardano.Ledger.Coin qualified as SL
 import Cardano.Ledger.Conway.Genesis (ConwayGenesis (..))
-import Cardano.Ledger.Dijkstra.Genesis
 import Cardano.Ledger.Keys qualified as SL
 import Cardano.Ledger.Shelley.API qualified as ShelleyAPI
 import Cardano.Ledger.Shelley.Core qualified as Core
@@ -208,6 +207,7 @@ import Ouroboros.Network.Block qualified
 import Ouroboros.Network.Protocol.ChainSync.Client qualified as CS
 import Ouroboros.Network.Protocol.ChainSync.ClientPipelined qualified as CSP
 import Ouroboros.Network.Protocol.ChainSync.PipelineDecision
+import Test.Cardano.Ledger.Api.Examples.Consensus.Dijkstra
 
 import Control.Concurrent
 import Control.DeepSeq
@@ -1496,7 +1496,7 @@ readCardanoGenesisConfig mEra enc = do
   ShelleyConfig shelleyGenesis shelleyGenesisHash <- readShelleyGenesisConfig enc
   alonzoGenesis <- readAlonzoGenesisConfig mEra enc
   conwayGenesis <- readConwayGenesisConfig enc
-  let dijkstraGenesis = DijkstraGenesis $ error "dijkstra"
+  let dijkstraGenesis = exampleDijkstraGenesis -- TODO: Dijkstra - add plumbing to read Dijkstra genesis
   let transCfg = Ledger.mkLatestTransitionConfig shelleyGenesis alonzoGenesis conwayGenesis dijkstraGenesis
   pure $ GenesisCardano enc byronGenesis shelleyGenesisHash transCfg
 

cardano-api/src/Cardano/Api/LedgerState.hs

@@ -9,7 +9,7 @@ module Test.Cardano.Api.Orphans () where
 import Cardano.Api.Byron
 import Cardano.Api.Key
 
-import Test.Cardano.Crypto.Orphans ()
+--import Test.Cardano.Crypto.Orphans ()
 
 -- Signing Key instances