[CO-390] Introduce library code for running a demo cluster

Author: KtorZ

lib/src/Pos/Launcher/Launcher.hs

@@ -4,9 +4,12 @@
 -- | Applications of runners to scenarios.
 
 module Pos.Launcher.Launcher
-       ( -- * Node launcher.
-       launchNode
-       ) where
+    ( -- * Node launcher.
+      launchNode
+
+     -- * Actions
+    , actionWithCoreNode
+    ) where
 
 import           Universum
 
@@ -25,11 +28,14 @@ import           Pos.Launcher.Configuration (AssetLockPath (..),
 import           Pos.Launcher.Param (LoggingParams (..), NodeParams (..))
 import           Pos.Launcher.Resource (NodeResources, bracketNodeResources,
                      loggerBracket)
+import           Pos.Launcher.Runner (runRealMode)
+import           Pos.Launcher.Scenario (runNode)
+import           Pos.Util.CompileInfo (HasCompileInfo)
 import           Pos.Util.Util (logException)
+import           Pos.Util.Wlog (logInfo)
+import           Pos.Worker.Update (updateTriggerWorker)
 import           Pos.WorkMode (EmptyMempoolExt)
 
--- import           Pos.Util.CompileInfo (HasCompileInfo, withCompileInfo)
-
 
 -- | Run a given action from a bunch of static arguments
 launchNode
@@ -79,3 +85,26 @@ launchNode nArgs cArgs lArgs action = do
             (txpGlobalSettings genesisConfig txpConfig)
             (initNodeDBs genesisConfig)
             action'
+
+
+-- | Run basic core node
+actionWithCoreNode
+    :: (HasConfigurations, HasCompileInfo)
+    => Genesis.Config
+    -> WalletConfiguration
+    -> TxpConfiguration
+    -> NtpConfiguration
+    -> NodeParams
+    -> SscParams
+    -> NodeResources EmptyMempoolExt
+    -> IO ()
+actionWithCoreNode genesisConfig _ txpConfig _ _ _ nodeRes = do
+    let plugins = [ updateTriggerWorker ]
+
+    logInfo "Wallet is disabled, because software is built w/o it"
+
+    runRealMode
+        genesisConfig
+        txpConfig
+        nodeRes
+        (runNode genesisConfig txpConfig nodeRes plugins)

lib/src/Pos/Web/Types.hs

@@ -3,6 +3,7 @@
 module Pos.Web.Types
        ( SscStage (..)
        , TlsParams (..)
+       , TlsClientParams (..)
        , CConfirmedProposalState (..)
        ) where
 
@@ -33,6 +34,14 @@ data TlsParams = TlsParams
     , tpClientAuth :: Bool
     } deriving (Show)
 
+-- | TLS Transport Layer Security client file paths
+data TlsClientParams = TlsClientParams
+    { tpClientCertPath :: !FilePath
+    , tpClientKeyPath  :: !FilePath
+    , tpClientCaPath   :: !FilePath
+    } deriving (Show)
+
+
 newtype CConfirmedProposalState = CConfirmedProposalState Text
     deriving (Show, Generic, Buildable)
 

node/Main.hs

@@ -6,24 +6,12 @@ import           Universum
 
 import           Pos.Client.CLI (SimpleNodeArgs (..), getSimpleNodeOptions,
                      loggingParams)
-import           Pos.Launcher (launchNode, runNode, runRealMode)
+import           Pos.Launcher (actionWithCoreNode, launchNode)
 import           Pos.Util.CompileInfo (withCompileInfo)
-import           Pos.Util.Wlog (logInfo)
-import           Pos.Worker.Update (updateTriggerWorker)
 
 
 main :: IO ()
 main = withCompileInfo $ do
     SimpleNodeArgs cArgs nArgs <- getSimpleNodeOptions
     let lArgs = loggingParams "node" cArgs
-
-    launchNode nArgs cArgs lArgs $ \genesisConfig _ txpConfig _ _ _ nodeRes -> do
-        let plugins = [ updateTriggerWorker ]
-
-        logInfo "Wallet is disabled, because software is built w/o it"
-
-        runRealMode
-            genesisConfig
-            txpConfig
-            nodeRes
-            (runNode genesisConfig txpConfig nodeRes plugins)
+    launchNode nArgs cArgs lArgs actionWithCoreNode

wallet-new/cardano-sl-wallet-new.cabal

@@ -16,6 +16,7 @@ cabal-version:       >=1.10
 library
   hs-source-dirs:      src
   exposed-modules:     Cardano.Wallet.Action
+                       Cardano.Wallet.Demo
                        Cardano.Wallet.LegacyAction
                        Cardano.Wallet.API
                        Cardano.Wallet.API.Indices
@@ -170,6 +171,7 @@ library
                      , aeson-options
                      , aeson-pretty
                      , async
+                     , attoparsec
                      , base58-bytestring
                      , beam-core
                      , beam-migrate
@@ -210,6 +212,7 @@ library
                      , http-client
                      , http-client-tls
                      , http-types
+                     , iproute
                      , ixset-typed
                      , lens
                      , memory
@@ -218,11 +221,13 @@ library
                      , neat-interpolation
                      , network-transport
                      , optparse-applicative
+                     , parsec
                      , QuickCheck
                      , QuickCheck
                      , reflection
                      , resourcet
                      , retry
+                     , safe
                      , safecopy
                      , safe-exceptions
                      , serokell-util
@@ -239,6 +244,7 @@ library
                      , stm
                      , stm
                      , swagger2
+                     , temporary
                      , text
                      , time
                      , time-units