portRouteInfo shows status of proxy

This commit does two things: it reports the status of the microservices
proxy in the `portRouteInfo`, so that if that's disabled we would
immediately know, and it also stop spawn the proxy `Application` in case
it's disabled. This wasn't the case before; previously we would be
spawing the proxy process even though it was "morally" disabled.

src/Gargantext/API.hs

@@ -47,8 +47,7 @@ import Gargantext.API.Admin.Auth.Types (AuthContext)
 import Gargantext.API.Admin.EnvTypes (Env, Mode(..))
 import Gargantext.API.Admin.Settings (newEnv, IniFile(..), SettingsFile)
 import Gargantext.API.Admin.Settings.CORS
-import Gargantext.API.Admin.Settings.MicroServices
-import Gargantext.API.Admin.Types (FireWall(..), PortNumber, cookieSettings, jwtSettings, settings, corsSettings, microservicesSettings)
+import Gargantext.API.Admin.Types
 import Gargantext.API.Middleware (logStdoutDevSanitised)
 import Gargantext.API.Routes.Named (API)
 import Gargantext.API.Routes.Named.EKG
@@ -75,18 +74,22 @@ import System.Cron.Schedule qualified as Cron
 startGargantext :: Mode -> PortNumber -> IniFile -> SettingsFile -> IO ()
 startGargantext mode port iniFile settingsFile = withLoggerHoisted mode $ \logger -> do
   env <- newEnv logger port iniFile settingsFile
-  let proxyPort = env ^. settings.microservicesSettings.msProxyPort
+  let proxyStatus = microServicesProxyStatus (env ^. settings)
   runDbCheck env
-  portRouteInfo port proxyPort
+  portRouteInfo port proxyStatus
   app <- makeApp env
   mid <- makeGargMiddleware (env ^. settings.corsSettings) mode
   periodicActions <- schedulePeriodicActions env
 
   let runServer = run port (mid app) `finally` stopGargantext periodicActions
-  proxyCache <- InMemory.newCache (Just oneHour)
-  let runProxy  = run proxyPort (mid (microServicesProxyApp proxyCache env))
-
-  Async.race_ runServer runProxy
+  case proxyStatus of
+    PXY_disabled
+      -> runServer -- the proxy is disabled, do not spawn the application
+    PXY_enabled proxyPort
+      -> do
+        proxyCache <- InMemory.newCache (Just oneHour)
+        let runProxy  = run proxyPort (mid (microServicesProxyApp proxyCache env))
+        Async.race_ runServer runProxy
 
   where runDbCheck env = do
           r <- runExceptT (runReaderT DB.dbCheck env) `catch`
@@ -98,19 +101,25 @@ startGargantext mode port iniFile settingsFile = withLoggerHoisted mode $ \logge
               "' before running gargantext-server (only the first time)."
         oneHour = Clock.fromNanoSecs 3600_000_000_000
 
-portRouteInfo :: PortNumber -> PortNumber -> IO ()
-portRouteInfo mainPort proxyPort = do
+portRouteInfo :: PortNumber -> MicroServicesProxyStatus -> IO ()
+portRouteInfo mainPort proxyStatus = do
   putStrLn   "=========================================================================================================="
   putStrLn   " GarganText Main Routes"
   putStrLn   "=========================================================================================================="
   putStrLn $ " - Web GarganText Frontend..................: " <> "http://localhost:" <> toUrlPiece mainPort <> "/index.html"
   putStrLn $ " - Swagger UI (API documentation)...........: " <> "http://localhost:" <> toUrlPiece mainPort <> "/swagger-ui"
   putStrLn $ " - Playground GraphQL (API documentation)...: " <> "http://localhost:" <> toUrlPiece mainPort <> "/gql"
-  putStrLn $ " - Microservices proxy .....................: " <> "http://localhost:" <> toUrlPiece proxyPort
+  putStrLn $ renderProxyStatus
   putStrLn $ " - Central exchange.........................: " <> "nanomsg: " <> pack AUConstants.ceBind
   putStrLn $ " - Dispatcher internal......................: " <> "nanomsg: " <> pack AUConstants.dispatcherBind
   putStrLn $ " - WebSocket address........................: " <> "ws://localhost:" <> toUrlPiece mainPort <> "/ws"
   putStrLn   "=========================================================================================================="
+  where
+    renderProxyStatus = case proxyStatus of
+      PXY_disabled ->
+        " - Microservices proxy .....................: DISABLED (enable in gargantext-settings.toml)"
+      PXY_enabled proxyPort ->
+        " - Microservices proxy .....................: http://localhost:" <> toUrlPiece proxyPort
 
 -- | Stops the gargantext server and cancels all the periodic actions
 -- scheduled to run up to that point.

src/Gargantext/API/Admin/Types.hs

@@ -34,6 +34,17 @@ data Settings = Settings
 
 makeLenses ''Settings
 
+data MicroServicesProxyStatus
+  = PXY_enabled PortNumber
+  | PXY_disabled
+  deriving (Show, Eq)
+
+microServicesProxyStatus :: Settings -> MicroServicesProxyStatus
+microServicesProxyStatus stgs =
+  if stgs ^. microservicesSettings.msProxyEnabled
+     then PXY_enabled (stgs ^. microservicesSettings.msProxyPort)
+     else PXY_disabled
+
 class HasSettings env where
   settings :: Getter env Settings