Remove consensus internal options from cli flags

IntersectMBO · Apr 29, 2024 · c3276d8 · c3276d8
1 parent d1f30b5
commit c3276d8
Showing 1 changed file with 3 additions and 50 deletions.
diff --git a/cardano-node/src/Cardano/Node/Parsers.hs b/cardano-node/src/Cardano/Node/Parsers.hs
@@ -20,17 +20,11 @@ import           Cardano.Node.Configuration.Socket
 import           Cardano.Node.Handlers.Shutdown
 import           Cardano.Node.Types
 import           Cardano.Prelude (ConvertText (..))
-import           Ouroboros.Consensus.Mempool (MempoolCapacityBytes (..),
-                   MempoolCapacityBytesOverride (..))
-import           Ouroboros.Consensus.Storage.LedgerDB.DiskPolicy (NumOfDiskSnapshots (..),
-                   SnapshotInterval (..))
 
 import           Data.Foldable
 import           Data.Maybe (fromMaybe)
 import           Data.Monoid (Last (..))
 import           Data.Text (Text)
-import           Data.Time.Clock (secondsToDiffTime)
-import           Data.Word (Word32)
 import           Options.Applicative hiding (str)
 import qualified Options.Applicative as Opt
 import qualified Options.Applicative.Help as OptI
@@ -70,15 +64,11 @@ nodeRunParser = do
 
   -- NodeConfiguration filepath
   nodeConfigFp <- lastOption parseConfigFile
-  numOfDiskSnapshots <- lastOption parseNumOfDiskSnapshots
-  snapshotInterval   <- lastOption parseSnapshotInterval
 
   validate <- lastOption parseValidateDB
   shutdownIPC <- lastOption parseShutdownIPC
   shutdownOnLimit <- lastOption parseShutdownOn
 
-  maybeMempoolCapacityOverride <- lastOption parseMempoolCapacityOverride
-
   pure $ PartialNodeConfiguration
            { pncSocketConfig =
                Last . Just $ SocketConfig
@@ -90,8 +80,8 @@ nodeRunParser = do
            , pncTopologyFile = TopologyFile <$> topFp
            , pncDatabaseFile = DbFile <$> dbFp
            , pncDiffusionMode = mempty
-           , pncNumOfDiskSnapshots = numOfDiskSnapshots
-           , pncSnapshotInterval = snapshotInterval
+           , pncNumOfDiskSnapshots = mempty
+           , pncSnapshotInterval = mempty
            , pncExperimentalProtocolsEnabled = mempty
            , pncProtocolFiles = Last $ Just ProtocolFilepaths
              { byronCertFile
@@ -112,7 +102,7 @@ nodeRunParser = do
            , pncLogMetrics = mempty
            , pncTraceConfig = mempty
            , pncTraceForwardSocket = traceForwardSocket
-           , pncMaybeMempoolCapacityOverride = maybeMempoolCapacityOverride
+           , pncMaybeMempoolCapacityOverride = mempty
            , pncProtocolIdleTimeout = mempty
            , pncTimeWaitTimeout = mempty
            , pncChainSyncIdleTimeout = mempty
@@ -206,24 +196,6 @@ parseConfigFile =
     <> completer (bashCompleter "file")
     )
 
-parseMempoolCapacityOverride :: Parser MempoolCapacityBytesOverride
-parseMempoolCapacityOverride = parseOverride <|> parseNoOverride
-  where
-    parseOverride :: Parser MempoolCapacityBytesOverride
-    parseOverride =
-      MempoolCapacityBytesOverride . MempoolCapacityBytes <$>
-      Opt.option (auto @Word32)
-        (  long "mempool-capacity-override"
-        <> metavar "BYTES"
-        <> help "The number of bytes"
-        )
-    parseNoOverride :: Parser MempoolCapacityBytesOverride
-    parseNoOverride =
-      flag' NoMempoolCapacityBytesOverride
-        (  long "no-mempool-capacity-override"
-        <> help "The port number"
-        )
-
 parseDbPath :: Parser FilePath
 parseDbPath =
   strOption
@@ -330,25 +302,6 @@ parseStartAsNonProducingNode =
         ]
     ]
 
-parseNumOfDiskSnapshots :: Parser NumOfDiskSnapshots
-parseNumOfDiskSnapshots = fmap RequestedNumOfDiskSnapshots parseNum
-  where
-  parseNum = Opt.option auto
-    ( long "num-of-disk-snapshots"
-        <> metavar "NUMOFDISKSNAPSHOTS"
-        <> help "Number of ledger snapshots stored on disk."
-    )
-
--- TODO revisit because it sucks
-parseSnapshotInterval :: Parser SnapshotInterval
-parseSnapshotInterval = fmap (RequestedSnapshotInterval . secondsToDiffTime) parseDifftime
-  where
-  parseDifftime = Opt.option auto
-    ( long "snapshot-interval"
-        <> metavar "SNAPSHOTINTERVAL"
-        <> help "Snapshot Interval (in seconds)"
-    )
-
 -- | Produce just the brief help header for a given CLI option parser,
 --   without the options.
 parserHelpHeader :: String -> Opt.Parser a -> OptI.Doc