Implement createPlutusSpendingScriptWitness

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental/AnyScriptWitness.hs

@@ -9,6 +9,7 @@ module Cardano.Api.Experimental.AnyScriptWitness
   ( AnyScriptWitness (..)
   , AnyPlutusScriptWitness (..)
   , PlutusSpendingScriptWitness (..)
+  , createPlutusSpendingScriptWitness
   , getAnyPlutusScriptData
   , getAnyPlutusScriptWitnessExecutionUnits
   , getAnyPlutusScriptWitnessRedeemer
@@ -36,6 +37,15 @@ data PlutusSpendingScriptWitness era
   | PlutusSpendingScriptWitnessV4 (PlutusScriptWitness L.PlutusV4 SpendingScript era)
   deriving (Show, Eq)
 
+createPlutusSpendingScriptWitness
+  :: L.SLanguage lang
+  -> PlutusScriptWitness lang SpendingScript era
+  -> PlutusSpendingScriptWitness era
+createPlutusSpendingScriptWitness L.SPlutusV1 witness = PlutusSpendingScriptWitnessV1 witness
+createPlutusSpendingScriptWitness L.SPlutusV2 witness = PlutusSpendingScriptWitnessV2 witness
+createPlutusSpendingScriptWitness L.SPlutusV3 witness = PlutusSpendingScriptWitnessV3 witness
+createPlutusSpendingScriptWitness L.SPlutusV4 witness = PlutusSpendingScriptWitnessV4 witness
+
 data AnyPlutusScriptWitness lang purpose era where
   AnyPlutusSpendingScriptWitness
     :: PlutusSpendingScriptWitness era -> AnyPlutusScriptWitness lang SpendingScript era