Add the non-native snapshots path to the StdRunNodeArgs

Author: jasagredo

ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/Node.hs

@@ -359,6 +359,7 @@ data
   , srnChainDbValidateOverride :: Bool
   -- ^ If @True@, validate the ChainDB on init no matter what
   , srnDatabasePath :: NodeDatabasePaths
+  , srnNonNativeSnapshotsPath :: Maybe FilePath
   -- ^ Location of the DBs
   , srnDiffusionArguments :: Cardano.Diffusion.CardanoNodeArguments m
   , srnDiffusionConfiguration :: Cardano.Diffusion.CardanoConfiguration m
@@ -1076,6 +1077,10 @@ stdLowLevelRunNodeArgsIO
       ChainDB.updateSnapshotPolicyArgs srnSnapshotPolicyArgs
         . ChainDB.updateQueryBatchSize srnQueryBatchSize
         . ChainDB.updateTracer srnTraceChainDB
+        . maybe
+          id
+          (\fp -> ChainDB.enableNonNativeSnapshots (SomeHasFS $ ioHasFS $ MountPoint fp))
+          srnNonNativeSnapshotsPath
         . ( if not srnChainDbValidateOverride
               then id
               else ChainDB.ensureValidateAll

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/ChainDB/Impl/Args.hs

@@ -13,6 +13,7 @@ module Ouroboros.Consensus.Storage.ChainDB.Impl.Args
   , completeChainDbArgs
   , defaultArgs
   , enableLedgerEvents
+  , enableNonNativeSnapshots
   , ensureValidateAll
   , updateQueryBatchSize
   , updateSnapshotPolicyArgs
@@ -261,6 +262,10 @@ enableLedgerEvents args =
             }
     }
 
+enableNonNativeSnapshots :: SomeHasFS m -> ChainDbArgs f m blk -> ChainDbArgs f m blk
+enableNonNativeSnapshots shfs args =
+  args{cdbLgrDbArgs = (cdbLgrDbArgs args){LedgerDB.lgrNonNativeSnapshotsFS = Just shfs}}
+
 {-------------------------------------------------------------------------------
   Relative mount points
 -------------------------------------------------------------------------------}