fix

test/Chainweb/Test/Pact/PactSingleChainTest.hs

@@ -26,7 +26,6 @@ import Control.Monad.Catch
 import Data.Aeson (object, (.=), Value(..), decodeStrict, eitherDecode)
 import qualified Data.ByteString.Lazy as BL
 import Data.Either (isRight, fromRight)
-import qualified Data.HashMap.Strict as HM
 import Data.IORef
 import qualified Data.Map.Strict as M
 import qualified Data.Text as T
@@ -84,16 +83,12 @@ testVersion = slowForkingCpmTestVersion petersonChainGraph
 cid :: ChainId
 cid = someChainId testVersion
 
-genesisHeader :: BlockHeader
-genesisHeader = genesisBlockHeader testVersion cid
-
 tests :: RocksDb -> TestTree
 tests rdb = testGroup testName
   [ test $ goldenNewBlock "new-block-0" goldenMemPool
   , test $ goldenNewBlock "empty-block-tests" mempty
   , test newBlockAndValidate
   , test newBlockAndValidationFailure
-  , test newBlockRewindValidate
   , test getHistory
   , test testHistLookup1
   , test testHistLookup2
@@ -160,7 +155,7 @@ newBlockAndValidationFailure refIO reqIO = testCase "newBlockAndValidationFailur
   ph <- getParentTestBlockDb bdb cid
   let blockTime = add second $ _bct $ _blockCreationTime ph
   nb <- forSuccess ("newBlockAndValidate" <> ": newblock") $
-        newBlock noMiner (ParentHeader ph) q
+        newBlock noMiner q
   forM_ (chainIds testVersion) $ \c -> do
     let o | c == cid = nb
           | otherwise = emptyPayload