bench: plutus-scripts-bench: remove mkPlutusBenchScript

Author: fmaste

bench/plutus-scripts-bench/src/Cardano/Benchmarking/ScriptAPI.hs

@@ -2,7 +2,6 @@ module Cardano.Benchmarking.ScriptAPI
   ( PlutusBenchScript
   , psName
   , psScript
-  , mkPlutusBenchScript
   , mkPlutusBenchScriptFromCompiled
   ) where
 
@@ -20,9 +19,6 @@ data PlutusBenchScript
     , psScript :: ScriptInAnyLang
     }
 
-mkPlutusBenchScript :: String -> ScriptInAnyLang -> PlutusBenchScript
-mkPlutusBenchScript = PlutusBenchScript
-
 -- This is doing two or three sorts of normalisation at once:
 -- It strips leading / -separated components, drops the ".hs" suffix
 -- if present, then chooses the last . -separated component.
@@ -51,7 +47,7 @@ mkPlutusBenchScriptFromCompiled ::
   -> SBS.ShortByteString             -- ^ Compiled PlutusCore script
   -> PlutusBenchScript
 mkPlutusBenchScriptFromCompiled version moduleName compiledScript =
-  mkPlutusBenchScript scriptName scriptInAnyLang
+  PlutusBenchScript scriptName scriptInAnyLang
   where
     scriptName = prepareScriptName moduleName
     scriptSerialized = PlutusScriptSerialised compiledScript