cardano-testnet: allow to take config files as input

IntersectMBO · Jan 31, 2025 · b90ea7b · b90ea7b
1 parent 53e05d9
commit b90ea7b
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/cardano-testnet/src/Parsers/Cardano.hs b/cardano-testnet/src/Parsers/Cardano.hs
@@ -57,10 +57,20 @@ pCardanoTestnetCliOptions envCli = CardanoTestnetOptions
       <>  OA.help "Enable new epoch state logging to logs/ledger-epoch-state.log"
       <>  OA.showDefault
       )
+  <*> optional parseConfigFiles
   where
     pAnyShelleyBasedEra' :: Parser AnyShelleyBasedEra
     pAnyShelleyBasedEra' =
       pAnyShelleyBasedEra envCli <&> (\(EraInEon x) -> AnyShelleyBasedEra x)
+    parseConfigFiles :: Parser InputConfigFiles
+    parseConfigFiles =
+      InputConfigFiles
+       <$> make "node-config" "Path to the node's configuration file"
+       <*> make "shelley-genesis" "Path to the Shelley genesis file"
+       <*> make "alonzo-genesis" "Path to the Alonzo genesis file"
+       <*> make "conway-genesis" "Path to the Conway genesis file"
+      where
+         make flagName helpName = strOption ( long flagName <> metavar "FILEPATH" <> help helpName)
 
 pNumSpoNodes :: Parser [TestnetNodeOptions]
 pNumSpoNodes =

diff --git a/cardano-testnet/src/Testnet/Start/Types.hs b/cardano-testnet/src/Testnet/Start/Types.hs
@@ -7,6 +7,7 @@
 module Testnet.Start.Types
   ( CardanoTestnetCliOptions(..)
   , CardanoTestnetOptions(..)
+  , InputConfigFiles(..)
   , NumDReps(..)
   , NumPools(..)
   , NumRelays(..)
@@ -74,8 +75,17 @@ data CardanoTestnetOptions = CardanoTestnetOptions
   , cardanoNodeLoggingFormat :: NodeLoggingFormat
   , cardanoNumDReps :: NumDReps -- ^ The number of DReps to generate at creation
   , cardanoEnableNewEpochStateLogging :: Bool -- ^ if epoch state logging is enabled
+  , cardanoInputConfigs :: Maybe InputConfigFiles -- ^ Paths to the (optional) configuration files
   } deriving (Eq, Show)
 
+data InputConfigFiles = InputConfigFiles
+  { icfNodeConfigFile :: FilePath -- ^ Path to the configuration file of the node
+  , icfShelleyGenesisConfigFile :: FilePath -- ^ Path to the Shelley genesis file
+  , icfAlonzoGenesisConfigFile :: FilePath -- ^ Path to the Alonzo genesis file
+  , icfConwayGenesisConfigFile :: FilePath -- ^ Path to the Conway genesis file
+  }
+  deriving (Eq, Show)
+
 cardanoNumPools :: CardanoTestnetOptions -> NumPools
 cardanoNumPools CardanoTestnetOptions{cardanoNodes} =
   NumPools . length $ filter isSpoNodeOptions cardanoNodes
@@ -105,6 +115,7 @@ instance Default CardanoTestnetOptions where
     , cardanoNodeLoggingFormat = NodeLoggingFormatAsJson
     , cardanoNumDReps = 3
     , cardanoEnableNewEpochStateLogging = True
+    , cardanoInputConfigs = Nothing
     }
 
 -- | Options that are implemented by writing fields in the Shelley genesis file.