Apply suggestions from code review

Co-authored-by: Alexey Kuleshevich <[email protected]>
IntersectMBO · Nov 28, 2024 · cfb11cd · cfb11cd
1 parent 26ede24
commit cfb11cd
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/CLI.hs b/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/CLI.hs
@@ -7,7 +7,8 @@ import Numeric.Natural (Natural)
 import Options.Applicative
 
 data Opts = Opts
-  { optsScript :: !String
+  { optsScriptWithContext :: !String
+  , optsScript :: !(Maybe String)
   , optsProtocolVersion :: !(Maybe Version)
   , optsLanguage :: !(Maybe Language)
   , optsCostModelValues :: ![Int64]
@@ -20,7 +21,7 @@ optsParser :: Parser Opts
 optsParser =
   Opts
     <$> strArgument
-      (metavar "SCRIPT(BASE64)")
+      (metavar "SCRIPT_WITH_CONTEXT(BASE64)")
     <*> option
       (mkVersion64 <$> auto)
       ( long "protocol-version"