Fixed benchmark

IntersectMBO · May 6, 2021 · b1789bd · b1789bd
1 parent 241e336
commit b1789bd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/shelley/chain-and-ledger/shelley-spec-ledger-test/bench/BenchValidation.hs b/shelley/chain-and-ledger/shelley-spec-ledger-test/bench/BenchValidation.hs
@@ -65,7 +65,7 @@ import Shelley.Spec.Ledger.STS.Prtcl (PrtclState (..))
 import Shelley.Spec.Ledger.STS.Tickn (TicknState (..))
 import Shelley.Spec.Ledger.TxBody (TransTxBody, TransTxId)
 import Test.Shelley.Spec.Ledger.ConcreteCryptoTypes (Mock)
-import Test.Shelley.Spec.Ledger.Generator.Core (GenEnv, PreAlonzo)
+import Test.Shelley.Spec.Ledger.Generator.Core (GenEnv)
 import Test.Shelley.Spec.Ledger.Generator.EraGen (EraGen)
 import Test.Shelley.Spec.Ledger.Generator.Presets (genEnv)
 import Test.Shelley.Spec.Ledger.Serialisation.Generators ()
@@ -84,7 +84,6 @@ instance NFData (ValidateInput era) where
 validateInput ::
   ( EraGen era,
     ShelleyTest era,
-    PreAlonzo era,
     Mock (Crypto era),
     Core.EraRule "LEDGERS" era ~ API.LEDGERS era,
     QC.HasTrace (API.LEDGERS era) (GenEnv era),
@@ -99,7 +98,6 @@ validateInput utxoSize = genValidateInput utxoSize
 genValidateInput ::
   ( EraGen era,
     ShelleyTest era,
-    PreAlonzo era,
     Mock (Crypto era),
     Core.EraRule "LEDGERS" era ~ API.LEDGERS era,
     QC.HasTrace (API.LEDGERS era) (GenEnv era),
@@ -187,7 +185,6 @@ genUpdateInputs ::
   ( EraGen era,
     Mock (Crypto era),
     ShelleyTest era,
-    PreAlonzo era,
     MinLEDGER_STS era,
     API.GetLedgerView era,
     Core.EraRule "LEDGERS" era ~ API.LEDGERS era,

diff --git a/shelley/chain-and-ledger/shelley-spec-ledger-test/bench/Shelley/Spec/Ledger/Bench/Gen.hs b/shelley/chain-and-ledger/shelley-spec-ledger-test/bench/Shelley/Spec/Ledger/Bench/Gen.hs
@@ -47,7 +47,7 @@ import Test.Shelley.Spec.Ledger.Generator.Constants
         minGenesisUTxOouts
       ),
   )
-import Test.Shelley.Spec.Ledger.Generator.Core (GenEnv (..),PreAlonzo)
+import Test.Shelley.Spec.Ledger.Generator.Core (GenEnv (..))
 import Test.Shelley.Spec.Ledger.Generator.EraGen (EraGen)
 import Test.Shelley.Spec.Ledger.Generator.Presets (genEnv)
 import Test.Shelley.Spec.Ledger.Generator.Trace.Chain (mkGenesisChainState)
@@ -86,8 +86,8 @@ genChainState n ge =
 -- | Benchmark generating a block given a chain state.
 genBlock ::
   ( Mock (Crypto era),
-    PreAlonzo era,
     ShelleyTest era,
+    EraGen era,
     MinLEDGER_STS era,
     GetLedgerView era,
     Core.EraRule "LEDGERS" era ~ LEDGERS era,