From 8f83aa7ad98f8147b893719a731a15d4768a00f8 Mon Sep 17 00:00:00 2001
From: Luke Nadur <luke.nadur@iohk.io>
Date: Wed, 13 Feb 2019 15:04:11 -0600
Subject: [PATCH] CBR-482: Fix build error in Bench.Pos.Criterion.Block.Logic

---
 generator/bench/Bench/Pos/Criterion/Block/Logic.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/generator/bench/Bench/Pos/Criterion/Block/Logic.hs b/generator/bench/Bench/Pos/Criterion/Block/Logic.hs
index 564e6ffb6d4..7ae2504503c 100644
--- 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