[websockets] ce/dispatcher bind/connect constants

This makes it easier to change protocols, ports etc.

bin/gargantext-central-exchange/Main.hs

@@ -18,7 +18,7 @@ import Control.Monad (join, mapM_)
 import Data.ByteString.Char8 qualified as C
 import Data.Text qualified as T
 import Gargantext.Core.AsyncUpdates.CentralExchange (gServer)
-import Gargantext.Core.AsyncUpdates.Constants (cePort)
+import Gargantext.Core.AsyncUpdates.Constants (ceBind, ceConnect)
 import Gargantext.Prelude
 import Nanomsg
 import Options.Applicative
@@ -45,7 +45,7 @@ main = join $ execParser (info parser idm)
 simpleServer :: IO ()
 simpleServer = do
   withSocket Pull $ \s -> do
-    _ <- bind s "tcp://*:5560"
+    _ <- bind s ceBind
     putText "[simpleServer] receiving"
     forever $ do
       mr <- recvMalloc s 1024
@@ -67,14 +67,14 @@ wsServer = do
 gClient :: IO ()
 gClient = do
     withSocket Push $ \s -> do
-      _ <- connect s ("tcp://localhost:" <> show cePort)
+      _ <- connect s ceConnect
       -- let str = C.unwords (take 10 $ repeat "hello")
       let str = "{\"type\": \"update_tree_first_level\", \"node_id\": -1}"
       C.putStrLn $ C.pack "sending: " <> str
       send s str
 
     withSocket Push $ \s -> do
-      _ <- connect s ("tcp://localhost:" <> show cePort)
+      _ <- connect s ceConnect
       let str2 = "{\"type\": \"update_tree_first_level\", \"node_id\": -2}"
       C.putStrLn $ C.pack "sending: " <> str2
       send s str2

src/Gargantext/API.hs

@@ -93,8 +93,8 @@ portRouteInfo port = do
   putStrLn $ " - Web GarganText Frontend..................: " <> "http://localhost:" <> toUrlPiece port <> "/index.html"
   putStrLn $ " - Swagger UI (API documentation)...........: " <> "http://localhost:" <> toUrlPiece port <> "/swagger-ui"
   putStrLn $ " - Playground GraphQL (API documentation)...: " <> "http://localhost:" <> toUrlPiece port <> "/gql"
-  putStrLn $ " - Central exchange.........................: " <> "nanomsg://localhost:" <> show AUConstants.cePort
-  putStrLn $ " - Dispatcher internal......................: " <> "nanomsg://localhost:" <> show AUConstants.dispatcherInternalPort
+  putStrLn $ " - Central exchange.........................: " <> "nanomsg: " <> pack AUConstants.ceBind
+  putStrLn $ " - Dispatcher internal......................: " <> "nanomsg: " <> pack AUConstants.dispatcherBind
   putStrLn $ " - WebSocket address........................: " <> "ws://localhost:" <> toUrlPiece port <> "/ws"
   putStrLn   "=========================================================================================================="
 

src/Gargantext/Core/AsyncUpdates/CentralExchange.hs

@@ -23,7 +23,7 @@ import Data.Aeson qualified as Aeson
 import Data.ByteString.Char8 qualified as C
 import Data.ByteString.Lazy qualified as BSL
 import Gargantext.Core.AsyncUpdates.CentralExchange.Types
-import Gargantext.Core.AsyncUpdates.Constants (cePort, dispatcherInternalPort)
+import Gargantext.Core.AsyncUpdates.Constants (ceBind, ceConnect, dispatcherConnect)
 -- import Gargantext.Core.AsyncUpdates.Nanomsg (withSafeSocket)
 import Gargantext.Prelude
 import Nanomsg (Pull(..), Push(..), bind, connect, recvMalloc, send, withSocket)
@@ -45,8 +45,8 @@ gServer :: IO ()
 gServer = do
   withSocket Pull $ \s -> do
     withSocket Push $ \s_dispatcher -> do
-      _ <- bind s ("tcp://*:" <> show cePort)
-      _ <- connect s_dispatcher ("tcp://localhost:" <> show dispatcherInternalPort)
+      _ <- bind s ceBind
+      _ <- connect s_dispatcher dispatcherConnect
 
       tChan <- TChan.newTChanIO
 
@@ -94,6 +94,6 @@ notify :: CEMessage -> IO ()
 notify ceMessage = do
   Async.withAsync (pure ()) $ \_ -> do
     withSocket Push $ \s -> do
-      _ <- connect s ("tcp://localhost:" <> show cePort)
+      _ <- connect s ceConnect
       let str = Aeson.encode ceMessage
       send s $ BSL.toStrict str

src/Gargantext/Core/AsyncUpdates/Constants.hs

@@ -16,13 +16,26 @@ https://dev.sub.gargantext.org/#/share/Notes/187918
 
 module Gargantext.Core.AsyncUpdates.Constants where
 
-import Gargantext.Prelude
-
--- | Port where the central exchange listens (on localhost)
-cePort :: Int
-cePort = 5560
-    
--- | Port where the dispatcher listens (on localhost) for messages from central exchange
-dispatcherInternalPort :: Int
-dispatcherInternalPort = 5561
-
+import Prelude qualified
+
+-- NOTE IDP is fast and we're on local network so it shouldn't be a
+-- problem with dropping packets. Otherwise, use TCP
+-- https://nanomsg.org
+
+-- | Bind address for central exchange (for tcp: tcp://*:5560)
+ceBind :: Prelude.String
+ceBind = "ipc:///tmp/central-exchange.ipc"
+-- ceBind = "tcp://*:5560"
+-- | Connect address for central exchange (for tcp: tcp://localhost:5560)
+ceConnect :: Prelude.String
+ceConnect = "ipc:///tmp/central-exchange.ipc"
+-- ceConnect = "tcp://localhost:5560"
+    
+-- | Bind address for dispatcher (for tcp: tcp://*:5561)
+dispatcherBind :: Prelude.String
+dispatcherBind = "ipc:///tmp/dispatcher.ipc"
+-- dispatcherBind = "tcp://*:5561"
+-- | Connect address for dispatcher (for tcp: tcp://localhost:5561)
+dispatcherConnect :: Prelude.String
+dispatcherConnect = "ipc:///tmp/dispatcher.ipc"
+-- dispatcherConnect = "tcp://localhost:5561"

src/Gargantext/Core/AsyncUpdates/Dispatcher.hs

@@ -208,7 +208,7 @@ wsServer = WSAPI { wsAPIServer = streamData }
 dispatcher_listener :: SSet.Set Subscription -> IO ()
 dispatcher_listener subscriptions = do
   withSocket Pull $ \s -> do
-    _ <- bind s ("tcp://*:" <> show AUConstants.dispatcherInternalPort)
+    _ <- bind s AUConstants.dispatcherBind
 
     tChan <- TChan.newTChanIO