fixup

IntersectMBO · Apr 23, 2024 · 735b8a6 · 735b8a6
1 parent 99454bb
commit 735b8a6
Showing 1 changed file with 2 additions and 8 deletions.
diff --git a/eras/mary/impl/testlib/Test/Cardano/Ledger/Mary/Imp/UtxoSpec.hs b/eras/mary/impl/testlib/Test/Cardano/Ledger/Mary/Imp/UtxoSpec.hs
@@ -13,13 +13,9 @@ import Cardano.Ledger.Coin (Coin (..))
 import Cardano.Ledger.Mary.Core
 import Cardano.Ledger.Mary.UTxO
 import Cardano.Ledger.Mary.Value
-import Cardano.Ledger.Shelley.LedgerState
-import Cardano.Ledger.Shelley.Rules
-import Data.Sequence.Strict (StrictSeq (..))
-
--- import Cardano.Ledger.Shelley.Rules (ShelleyUtxoPredFailure (..))
-
+import Cardano.Ledger.Shelley.Rules (ShelleyUtxoPredFailure (..))
 import qualified Data.Map.Strict as Map
+import Data.Sequence.Strict (StrictSeq (..))
 import Lens.Micro
 import Test.Cardano.Ledger.Core.Utils (txInAt)
 import Test.Cardano.Ledger.Imp.Common
@@ -67,8 +63,6 @@ spec = describe "UTXO" $ do
               & inputsTxBodyL .~ [txInAt (0 :: Int) txMinted]
               & mintTxBodyL .~ burnTooMuchMultiAsset
       (_, rootTxOut) <- lookupImpRootTxOut
-      pp <- getsNES $ nesEsL . curPParamsEpochStateL
-      certState <- getsNES $ nesEsL . esLStateL . lsCertStateL
       let rootTxOutValue = rootTxOut ^. valueTxOutL
       predFailures <- expectLeftDeep =<< trySubmitTx (mkBasicTx txBody)
       predFailures