Two tiny cleanups (#1328)

Noticed while doing other stuff, see the commit descriptions
IntersectMBO · Nov 25, 2024 · f196bfc · f196bfc
2 parents 244ea9f + 3f01af4
commit f196bfc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs b/ouroboros-consensus/src/unstable-consensus-testlib/Test/Util/TestBlock.hs
@@ -624,14 +624,12 @@ singleNodeTestConfigWith codecConfig storageConfig k genesisWindow = TopLevelCon
 
     ledgerCfgParams :: TestBlockLedgerConfig
     ledgerCfgParams = TestBlockLedgerConfig {
-      tblcHardForkParams = HardFork.defaultEraParams k slotLength,
+      tblcHardForkParams = (HardFork.defaultEraParams k slotLength) {
+          HardFork.eraGenesisWin = genesisWindow
+        },
       tblcForecastRange = SNothing
     }
 
-    _eraParams :: HardFork.EraParams
-    _eraParams = (HardFork.defaultEraParams k slotLength) {HardFork.eraGenesisWin = genesisWindow}
-
-
 {-------------------------------------------------------------------------------
   Test blocks without payload
 -------------------------------------------------------------------------------}

diff --git a/ouroboros-consensus/test/consensus-test/Test/Consensus/MiniProtocol/BlockFetch/Client.hs b/ouroboros-consensus/test/consensus-test/Test/Consensus/MiniProtocol/BlockFetch/Client.hs
@@ -244,7 +244,6 @@ runBlockFetchTest BlockFetchClientTestSetup{..} = withRegistry \registry -> do
                 , mcdbRegistry = registry
                 , mcdbNodeDBs = nodeDBs
                 }
-          -- TODO: Test with more interesting behaviour for cdbCheckInFuture
           pure $ ChainDB.updateTracer cdbTracer args
         (_, (chainDB, ChainDBImpl.Internal{intAddBlockRunner})) <-
           allocate