Hide experimental --spec-dijkstra parser from help output

Author: carbolymer

cardano-cli/src/Cardano/CLI/EraBased/Common/Option.hs

@@ -86,14 +86,25 @@ bounded t = Opt.eitherReader $ \s -> do
   when (i > fromIntegral (maxBound @a)) $ Left $ t <> " must not greater than " <> show (maxBound @a)
   pure (fromIntegral i)
 
-parseFilePath :: String -> String -> Parser FilePath
-parseFilePath optname desc =
+parseFilePathWithMod
+  :: String
+  -- ^ option name
+  -> String
+  -- ^ description
+  -> Mod OptionFields FilePath
+  -> Parser FilePath
+parseFilePathWithMod optname desc mod' =
   Opt.strOption
-    ( Opt.long optname
-        <> Opt.metavar "FILEPATH"
-        <> Opt.help desc
-        <> Opt.completer (Opt.bashCompleter "file")
-    )
+    . mconcat
+    $ [ Opt.long optname
+      , Opt.metavar "FILEPATH"
+      , Opt.help desc
+      , Opt.completer (Opt.bashCompleter "file")
+      , mod'
+      ]
+
+parseFilePath :: String -> String -> Parser FilePath
+parseFilePath optname desc = parseFilePathWithMod optname desc mempty
 
 pNetworkIdDeprecated :: Parser NetworkId
 pNetworkIdDeprecated =

cardano-cli/src/Cardano/CLI/EraBased/Genesis/Option.hs

@@ -228,10 +228,10 @@ pGenesisCreateTestNetData :: forall era. Exp.IsEra era => EnvCli -> Parser (Gene
 pGenesisCreateTestNetData envCli =
   fmap GenesisCreateTestNetData $
     GenesisCreateTestNetDataCmdArgs (convert $ Exp.useEra @era)
-      <$> optional (pSpecFile "shelley")
-      <*> optional (pSpecFile "alonzo")
-      <*> optional (pSpecFile "conway")
-      <*> optional (pSpecFile "dijkstra")
+      <$> optional (pSpecFile idm "shelley")
+      <*> optional (pSpecFile idm "alonzo")
+      <*> optional (pSpecFile idm "conway")
+      <*> optional (pSpecFile Opt.internal "dijkstra")
       <*> pNumGenesisKeys
       <*> pNumPools
       <*> pNumStakeDelegs
@@ -246,10 +246,11 @@ pGenesisCreateTestNetData envCli =
       <*> pMaybeSystemStart
       <*> pOutputDir
  where
-  pSpecFile eraStr =
-    parseFilePath
+  pSpecFile mod' eraStr =
+    parseFilePathWithMod
       ("spec-" <> eraStr)
       ("The " <> eraStr <> " specification file to use as input. A default one is generated if omitted.")
+      mod'
   pNumGenesisKeys =
     Opt.option integralReader $
       mconcat

cardano-cli/test/cardano-cli-golden/files/golden/help.cli

@@ -1232,7 +1232,6 @@ Usage: cardano-cli conway genesis create-staked
 Usage: cardano-cli conway genesis create-testnet-data [--spec-shelley FILEPATH]
                                                         [--spec-alonzo FILEPATH]
                                                         [--spec-conway FILEPATH]
-                                                        [--spec-dijkstra FILEPATH]
                                                         [--genesis-keys INT]
                                                         [--pools INT]
                                                         [ --stake-delegators INT
@@ -3530,7 +3529,6 @@ Usage: cardano-cli latest genesis create-staked
 Usage: cardano-cli latest genesis create-testnet-data [--spec-shelley FILEPATH]
                                                         [--spec-alonzo FILEPATH]
                                                         [--spec-conway FILEPATH]
-                                                        [--spec-dijkstra FILEPATH]
                                                         [--genesis-keys INT]
                                                         [--pools INT]
                                                         [ --stake-delegators INT

cardano-cli/test/cardano-cli-golden/files/golden/help/conway_genesis_create-testnet-data.cli

@@ -1,7 +1,6 @@
 Usage: cardano-cli conway genesis create-testnet-data [--spec-shelley FILEPATH]
                                                         [--spec-alonzo FILEPATH]
                                                         [--spec-conway FILEPATH]
-                                                        [--spec-dijkstra FILEPATH]
                                                         [--genesis-keys INT]
                                                         [--pools INT]
                                                         [ --stake-delegators INT
@@ -29,8 +28,6 @@ Available options:
                            default one is generated if omitted.
   --spec-conway FILEPATH   The conway specification file to use as input. A
                            default one is generated if omitted.
-  --spec-dijkstra FILEPATH The dijkstra specification file to use as input. A
-                           default one is generated if omitted.
   --genesis-keys INT       The number of genesis keys to make (default is 3).
   --pools INT              The number of stake pool credential sets to make
                            (default is 0).

cardano-cli/test/cardano-cli-golden/files/golden/help/latest_genesis_create-testnet-data.cli

@@ -1,7 +1,6 @@
 Usage: cardano-cli latest genesis create-testnet-data [--spec-shelley FILEPATH]
                                                         [--spec-alonzo FILEPATH]
                                                         [--spec-conway FILEPATH]
-                                                        [--spec-dijkstra FILEPATH]
                                                         [--genesis-keys INT]
                                                         [--pools INT]
                                                         [ --stake-delegators INT
@@ -29,8 +28,6 @@ Available options:
                            default one is generated if omitted.
   --spec-conway FILEPATH   The conway specification file to use as input. A
                            default one is generated if omitted.
-  --spec-dijkstra FILEPATH The dijkstra specification file to use as input. A
-                           default one is generated if omitted.
   --genesis-keys INT       The number of genesis keys to make (default is 3).
   --pools INT              The number of stake pool credential sets to make
                            (default is 0).