Drop redundant ShelleyBasedEra parameter from readRefScript

Author: Jimbo4350

cardano-cli/src/Cardano/CLI/Compatible/Transaction/TxOut.hs

@@ -58,7 +58,7 @@ mkTxOut sbe addr val' mDatumAnyEra refScriptFp = do
               )
           ShelleyBasedEraBabbage -> do
             (dat, suppl) <- babbageDatumFields mDatumAnyEra
-            refScript <- readRefScript sbe BabbageEraOnwardsBabbage refScriptFp
+            refScript <- readRefScript BabbageEraOnwardsBabbage refScriptFp
             pure
               ( Exp.TxOut
                   ( L.mkBasicTxOut ledgerAddr ledgerVal
@@ -69,7 +69,7 @@ mkTxOut sbe addr val' mDatumAnyEra refScriptFp = do
               )
           ShelleyBasedEraConway -> do
             (dat, suppl) <- babbageDatumFields mDatumAnyEra
-            refScript <- readRefScript sbe BabbageEraOnwardsConway refScriptFp
+            refScript <- readRefScript BabbageEraOnwardsConway refScriptFp
             pure
               ( Exp.TxOut
                   ( L.mkBasicTxOut ledgerAddr ledgerVal
@@ -120,15 +120,14 @@ babbageDatumFields = \case
     pure (scriptDataToInlineDatum sData, mempty)
 
 readRefScript
-  :: ShelleyBasedEra era
-  -> BabbageEraOnwards era
+  :: BabbageEraOnwards era
   -> ReferenceScriptAnyEra
   -> CIO e (L.StrictMaybe (L.Script (ShelleyLedgerEra era)))
-readRefScript sbe boe = \case
+readRefScript boe = \case
   ReferenceScriptAnyEraNone -> pure L.SNothing
   ReferenceScriptAnyEra fp -> do
     script <- readFileScriptInAnyLang fp
-    pure $ refScriptToShelleyScript sbe (ReferenceScript boe script)
+    pure $ refScriptToShelleyScript (convert boe) (ReferenceScript boe script)
 
 toTxOutValueInShelleyBasedEra
   :: ShelleyBasedEra era