[DEVOPS-1099] make the wallet documentation optional, and default it to off

Author: cleverca22

lib/src/Pos/Client/CLI/Options.hs

@@ -164,9 +164,9 @@ walletAddressOption na =
   where
     helpMsg = "IP and port for backend wallet API."
 
-docAddressOption :: Maybe NetworkAddress -> Opt.Parser NetworkAddress
+docAddressOption :: Maybe NetworkAddress -> Opt.Parser (Maybe NetworkAddress)
 docAddressOption na =
-    Opt.option (fromParsec addrParser) $
+    Opt.optional $ Opt.option (fromParsec addrParser) $
             Opt.long "wallet-doc-address"
          <> Opt.metavar "IP:PORT"
          <> Opt.help helpMsg

wallet-new/src/Cardano/Wallet/Action.hs

@@ -91,17 +91,16 @@ actionWithWallet params genesisConfig walletConfig txpConfig ntpConfig nodeParam
                 , unsupportedMimeTypeMiddleware
                 ])
 
-            -- The corresponding wallet documention, served as a different
-            -- server which doesn't require client x509 certificates to
-            -- connect, but still serves the doc through TLS
-            , ("doc worker", Plugins.docServer params)
-
             -- Periodically compact & snapshot the acid-state database.
             , ("acid state cleanup", Plugins.acidStateSnapshots (view Kernel.Internal.wallets (snd w)) params dbMode)
 
             -- A @Plugin@ to watch and store incoming update proposals
             , ("update watcher", Plugins.updateWatcher)
             ]
+        -- The corresponding wallet documention, served as a different
+        -- server which doesn't require client x509 certificates to
+        -- connect, but still serves the doc through TLS
+        , maybe [] (\x -> [x]) (Plugins.docServer params)
         -- The monitoring API for the Core node.
         , Plugins.monitoringServer params
         ]

wallet-new/src/Cardano/Wallet/Server/CLI.hs

@@ -57,7 +57,7 @@ data WalletBackendParams = WalletBackendParams
     -- ^ The TLS parameters.
     , walletAddress       :: !NetworkAddress
     -- ^ The wallet address.
-    , walletDocAddress    :: !NetworkAddress
+    , walletDocAddress    :: !(Maybe NetworkAddress)
     -- ^ The wallet documentation address.
     , walletRunMode       :: !RunMode
     -- ^ The mode this node is running in.
@@ -157,8 +157,8 @@ walletBackendParamsParser = WalletBackendParams <$> enableMonitoringApiParser
     addressParser :: Parser NetworkAddress
     addressParser = CLI.walletAddressOption $ Just (localhost, 8090)
 
-    docAddressParser :: Parser NetworkAddress
-    docAddressParser = CLI.docAddressOption $ Just (localhost, 8091)
+    docAddressParser :: Parser (Maybe NetworkAddress)
+    docAddressParser = CLI.docAddressOption Nothing
 
     runModeParser :: Parser RunMode
     runModeParser = (\debugMode -> if debugMode then DebugMode else ProductionMode) <$>

wallet-new/src/Cardano/Wallet/Server/LegacyPlugins.hs

@@ -91,11 +91,11 @@ walletDocumentation
     :: (HasConfigurations, HasCompileInfo)
     => WalletBackendParams
     -> Plugin WalletWebMode
-walletDocumentation WalletBackendParams {..} = pure ("wallet doc worker", const worker)
+walletDocumentation WalletBackendParams {..} = maybe [] (\addr -> [ ("wallet doc worker", const $ worker addr) ]) walletDocAddress
   where
-    worker = walletDocumentationImpl
+    worker addr = walletDocumentationImpl
         application
-        walletDocAddress
+        addr
         tls
         (Just defaultSettings)
         Nothing

wallet-new/src/Cardano/Wallet/Server/Plugins.hs

@@ -126,17 +126,16 @@ apiServer protocolMagic (NewWalletBackendParams WalletBackendParams{..}) (passiv
 docServer
     :: (HasConfigurations, HasCompileInfo)
     => NewWalletBackendParams
-    -> Plugin Kernel.WalletMode
-docServer (NewWalletBackendParams WalletBackendParams{..}) = const $
-    serveDocImpl
+    -> Maybe (Text, Plugin Kernel.WalletMode)
+docServer (NewWalletBackendParams WalletBackendParams{..}) = maybe Nothing (\addr -> Just ("doc worker", makeWalletServer addr)) walletDocAddress
+  where
+    makeWalletServer (ip, port) = const $ serveDocImpl
         application
         (BS8.unpack ip)
         port
         (if isDebugMode walletRunMode then Nothing else walletTLSParams)
         (Just defaultSettings)
         Nothing
-  where
-    (ip, port) = walletDocAddress
 
     application :: Kernel.WalletMode Application
     application =