Merge pull request #323 from input-output-hk/ch/support-plutus-v1-in-…

…conway Support Plutus V1 in Conway
IntersectMBO · Oct 23, 2023 · d11b423 · d11b423
2 parents 2e299c1 + 8b1da6e
commit d11b423
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Script.hs b/cardano-api/internal/Cardano/Api/Script.hs
@@ -606,6 +606,9 @@ scriptLanguageSupportedInEra era lang =
       (BabbageEra, PlutusScriptLanguage PlutusScriptV2) ->
         Just PlutusScriptV2InBabbage
 
+      (ConwayEra, PlutusScriptLanguage PlutusScriptV1) ->
+        Just PlutusScriptV1InConway
+
       (ConwayEra, PlutusScriptLanguage PlutusScriptV2) ->
         Just PlutusScriptV2InConway
 
@@ -639,21 +642,19 @@ eraOfScriptLanguageInEra :: ScriptLanguageInEra lang era
 eraOfScriptLanguageInEra langInEra =
     case langInEra of
       SimpleScriptInShelley   -> ShelleyBasedEraShelley
-
       SimpleScriptInAllegra   -> ShelleyBasedEraAllegra
-
       SimpleScriptInMary      -> ShelleyBasedEraMary
-
       SimpleScriptInAlonzo    -> ShelleyBasedEraAlonzo
-      PlutusScriptV1InAlonzo  -> ShelleyBasedEraAlonzo
-
       SimpleScriptInBabbage   -> ShelleyBasedEraBabbage
       SimpleScriptInConway    -> ShelleyBasedEraConway
 
+      PlutusScriptV1InAlonzo  -> ShelleyBasedEraAlonzo
       PlutusScriptV1InBabbage -> ShelleyBasedEraBabbage
       PlutusScriptV1InConway  -> ShelleyBasedEraConway
+
       PlutusScriptV2InBabbage -> ShelleyBasedEraBabbage
       PlutusScriptV2InConway  -> ShelleyBasedEraConway
+
       PlutusScriptV3InConway  -> ShelleyBasedEraConway
 
 -- | Given a target era and a script in some language, check if the language is