Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
142
Issues
142
List
Board
Labels
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-gargantext
Commits
5bf220f1
Verified
Commit
5bf220f1
authored
Jun 17, 2024
by
Przemyslaw Kaminski
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[websockets] ce/dispatcher bind/connect constants
This makes it easier to change protocols, ports etc.
parent
0d3eb314
Pipeline
#6226
failed with stages
Changes
5
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
32 additions
and
19 deletions
+32
-19
Main.hs
bin/gargantext-central-exchange/Main.hs
+4
-4
API.hs
src/Gargantext/API.hs
+2
-2
CentralExchange.hs
src/Gargantext/Core/AsyncUpdates/CentralExchange.hs
+4
-4
Constants.hs
src/Gargantext/Core/AsyncUpdates/Constants.hs
+21
-8
Dispatcher.hs
src/Gargantext/Core/AsyncUpdates/Dispatcher.hs
+1
-1
No files found.
bin/gargantext-central-exchange/Main.hs
View file @
5bf220f1
...
...
@@ -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
(
ce
Por
t
)
import
Gargantext.Core.AsyncUpdates.Constants
(
ce
Bind
,
ceConnec
t
)
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
View file @
5bf220f1
...
...
@@ -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
View file @
5bf220f1
...
...
@@ -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
(
ce
Port
,
dispatcherInternalPor
t
)
import
Gargantext.Core.AsyncUpdates.Constants
(
ce
Bind
,
ceConnect
,
dispatcherConnec
t
)
-- 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
View file @
5bf220f1
...
...
@@ -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
View file @
5bf220f1
...
...
@@ -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
...
...
Przemyslaw Kaminski
@cgenie
mentioned in commit
5660aec0
·
Oct 08, 2024
mentioned in commit
5660aec0
mentioned in commit 5660aec07ec5a0a0a5468f440092c1a8f57a864e
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment