diff --git a/backend/src/WebSocket/MonadWebSocketSession.hs b/backend/src/WebSocket/MonadWebSocketSession.hs index 68b57f6..7893af5 100644 --- a/backend/src/WebSocket/MonadWebSocketSession.hs +++ b/backend/src/WebSocket/MonadWebSocketSession.hs @@ -6,6 +6,7 @@ module WebSocket.MonadWebSocketSession ) where +import BroadcastUserData (MonadBroadcast, broadcastUserData) import ClassyPrelude import Data.Aeson ( FromJSON, @@ -16,6 +17,7 @@ import State.ConnectedClientsState ( MonadConnectedClientsModify, removeWSClient, ) +import State.RoomDataState (MonadRoomDataStateRead) import Types.ConnectionState (Client (..)) import Types.WebSocketMessages.WebSocketMessages (SetClientInfo (..)) import WebSocket.Messages @@ -56,9 +58,12 @@ newClientGeneric clientInfo = do disconnectWsClient :: ( MonadConnectedClientsModify m, + MonadRoomDataStateRead m, + MonadBroadcast m, MonadWebSocketSession m ) => m () disconnectWsClient = do clientId <- getSesssionId removeWSClient clientId + broadcastUserData diff --git a/backend/src/WebSocket/Server.hs b/backend/src/WebSocket/Server.hs index cafd046..666a8e0 100644 --- a/backend/src/WebSocket/Server.hs +++ b/backend/src/WebSocket/Server.hs @@ -18,9 +18,9 @@ runWebSocketServer :: ) => m () runWebSocketServer = do - putStrLn "Websocket up at 127.0.0.1:9160" + putStrLn "Websocket up at 0.0.0.0:9160" wsApp' <- runWSApp - liftIO $ WS.runServer "127.0.0.1" 9160 wsApp' + liftIO $ WS.runServer "0.0.0.0" 9160 wsApp' runWSApp :: ( MonadIO m,