cardano-testnet: remove unused code

IntersectMBO · Oct 10, 2024 · 72c1000 · 72c1000
1 parent fe66ae6
commit 72c1000
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 29 deletions.
diff --git a/cardano-testnet/src/Parsers/Cardano.hs b/cardano-testnet/src/Parsers/Cardano.hs
@@ -73,29 +73,6 @@ pNumSpoNodes =
      <>  OA.value (cardanoNodes def)
      )
 
-_pSpo :: Parser TestnetNodeOptions
-_pSpo =
-  TestnetNodeOptions . Just
-    <$> parseNodeConfigFile
-    <*> pure [] -- TODO: Consider adding support for extra args
-
-parseNodeConfigFile :: Parser NodeConfigurationYaml
-parseNodeConfigFile = NodeConfigurationYaml <$>
-  strOption
-    (mconcat
-       [ long "configuration-file"
-       , metavar "NODE-CONFIGURATION"
-       , help helpText
-       , completer (bashCompleter "file")
-       ]
-    )
- where
-   helpText = unwords
-               [ "Configuration file for the cardano-node(s)."
-               , "Specify a configuration file per node you want to have in the cluster."
-               , "Or use num-pool-nodes to use cardano-testnet's default configuration."
-               ]
-
 pGenesisOptions :: Parser GenesisOptions
 pGenesisOptions =
   GenesisOptions

diff --git a/cardano-testnet/src/Testnet/Start/Cardano.hs b/cardano-testnet/src/Testnet/Start/Cardano.hs
@@ -9,7 +9,6 @@
 module Testnet.Start.Cardano
   ( CardanoTestnetCliOptions(..)
   , CardanoTestnetOptions(..)
-  , extraSpoNodeCliArgs
   , TestnetNodeOptions(..)
   , cardanoDefaultTestnetNodeOptions
 

diff --git a/cardano-testnet/src/Testnet/Start/Types.hs b/cardano-testnet/src/Testnet/Start/Types.hs
@@ -11,7 +11,6 @@ module Testnet.Start.Types
   , eraToString
 
   , TestnetNodeOptions(..)
-  , extraSpoNodeCliArgs
   , cardanoDefaultTestnetNodeOptions
   , GenesisOptions(..)
 
@@ -99,10 +98,6 @@ data TestnetNodeOptions
     -- starting the node.
   deriving (Eq, Show)
 
-extraSpoNodeCliArgs :: TestnetNodeOptions -> [String]
-extraSpoNodeCliArgs (TestnetNodeOptions _ args) = args
-
-
 cardanoDefaultTestnetNodeOptions :: [TestnetNodeOptions]
 cardanoDefaultTestnetNodeOptions =
   [ TestnetNodeOptions Nothing []