CBR-482: Fix build error in Bench.Pos.Criterion.Block.Logic

input-output-hk · Feb 18, 2019 · 8f83aa7 · 8f83aa7
1 parent 8868619
commit 8f83aa7
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/generator/bench/Bench/Pos/Criterion/Block/Logic.hs b/generator/bench/Bench/Pos/Criterion/Block/Logic.hs
@@ -14,9 +14,9 @@ import           Serokell.Util.Verify (isVerSuccess)
 import           System.Random (newStdGen)
 
 import           Pos.AllSecrets (mkAllSecretsSimple)
-import           Pos.Chain.Block (Block, VerifyBlockParams (..),
-                     VerifyHeaderParams (..), getBlockHeader, verifyBlock,
-                     verifyHeader)
+import           Pos.Chain.Block (Block, ConsensusEraLeaders (..),
+                     VerifyBlockParams (..), VerifyHeaderParams (..),
+                     getBlockHeader, verifyBlock, verifyHeader)
 import           Pos.Chain.Genesis as Genesis (Config (..),
                      FakeAvvmOptions (..), GenesisInitializer (..),
                      TestnetBalanceOptions (..), configBlockVersionData,
@@ -195,7 +195,9 @@ verifyHeaderBenchmark !genesisConfig !secretKeys !tp =
                 , _bgpTxpGlobalSettings =
                       txpGlobalSettings genesisConfig (_tpTxpConfiguration tp)
                 }
-        leaders <- lrcActionOnEpochReason epoch "genBlock" getLeadersForEpoch
+        leaders <-
+            OriginalLeaders
+                <$> lrcActionOnEpochReason epoch "genBlock" getLeadersForEpoch
         mblock <- flip evalRandT g $ do
             blockGenCtx <- lift $ mkBlockGenContext
                 (configEpochSlots genesisConfig)
@@ -212,7 +214,6 @@ verifyHeaderBenchmark !genesisConfig !secretKeys !tp =
                 , vhpMaxSize = Nothing
                 , vhpVerifyNoUnknown = False
                 , vhpConsensusEra = Original
-                , vhpLastBlkSlotsAndK = Nothing
                 }
         let !params = VerifyBlockParams
                 { vbpVerifyHeader = verifyHeaderParams