Merge me

Author: Jimbo4350

cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs

@@ -811,7 +811,7 @@ genScriptWitnessedTxCertificates era = do
   num <- Gen.integral (Range.linear 0 3)
   certs <- Gen.list (Range.singleton num) $ genCertificate w
   plutusScriptWits <-
-    Gen.list (Range.singleton num) $ error "genApiPlutusScriptWitness WitCtxStake era"
+    Gen.list (Range.singleton num) $ genApiPlutusScriptWitness WitCtxStake era
   let certsAndWits =
         zipWith
           (\c p -> (c, Just p))

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/Certificate.hs

@@ -22,26 +22,20 @@ where
 import Cardano.Api.Era.Internal.Eon.ShelleyBasedEra
 import Cardano.Api.Error
 import Cardano.Api.Experimental.Era
-import Cardano.Api.Experimental.Plutus.Internal.Script qualified as Exp
-import Cardano.Api.Experimental.Plutus.Internal.ScriptWitness qualified as Exp
-import Cardano.Api.Experimental.Simple.Script qualified as Exp
-import Cardano.Api.Experimental.Tx.Internal.AnyWitness
 import Cardano.Api.HasTypeProxy
 import Cardano.Api.Ledger qualified as L
-import Cardano.Api.Plutus.Internal.Script
-import Cardano.Api.Plutus.Internal.Script qualified as Api
+import Cardano.Api.Ledger.Internal.Reexport qualified as Ledger
+import Cardano.Api.Pretty
 import Cardano.Api.Serialise.Cbor
 import Cardano.Api.Serialise.TextEnvelope.Internal
-import Cardano.Api.Tx.Internal.Body (TxCertificates (..))
-import Cardano.Api.Tx.Internal.Body qualified as Api
 
 import Cardano.Binary qualified as CBOR
-import Cardano.Ledger.Allegra.Scripts qualified as L
-import Cardano.Ledger.Plutus.Language qualified as L
-import Cardano.Ledger.Plutus.Language qualified as Plutus
+import Cardano.Ledger.BaseTypes (strictMaybe)
 
+import Control.Monad.Error.Class
+import Data.ByteString (ByteString)
+import Data.String
 import Data.Typeable
-import GHC.IsList
 
 data Certificate era where
   Certificate :: L.EraTxCert era => L.TxCert era -> Certificate era