Clean up backend code

backend/src/RoomDataHandler.hs

@@ -16,16 +16,12 @@ import Network.Wai
     consumeRequestBodyStrict,
     responseLBS,
   )
-import State.ConnectedClientsState (MonadConnectedClientsRead)
 import State.RoomDataState
   ( MonadRoomDataStateModify (setRoomDataState),
     MonadRoomDataStateRead,
   )
-import Types.AppTypes (HasConnectedClientState)
 import Types.RoomsState
-  ( HasRoomsState,
+  ( roomStateDiffers,
-    roomStateDiffers,
-    updateRoomState,
   )
 import Types.WebEnv
   ( HasWebEnv (getRequest),

backend/src/WebServer.hs

@@ -15,7 +15,7 @@ import Control.Monad.Except
 import Network.HTTP.Types
 import Network.Wai
 import Network.Wai.Handler.Warp (run)
-import Network.Wai.Middleware.RequestLogger (logStdoutDev)
+import Network.Wai.Middleware.RequestLogger (logStdout)
 import RoomDataHandler (roomDataHandler)
 import State.ConnectedClientsState
   ( MonadConnectedClientsRead (..),
@@ -27,9 +27,7 @@ import State.RoomDataState
   )
 import Types.AppTypes (Env (..))
 import Types.RoomsState
-  ( HasRoomsState (getRoomsState),
+  ( getRoomState,
-    getRoomState,
-    roomStateDiffers,
     updateRoomState,
   )
 import Types.WebEnv
@@ -122,24 +120,6 @@ notFound = do
           "404 - Not Found"
   throwError response
 
--- notFound ::
---   ( MonadIO m,
---     HasWebEnv env,
---     MonadReader env m,
---     MonadError ResponseReceived m
---   ) =>
---   m ResponseReceived
--- notFound = do
---   respond' <- getRespond <$> ask
---   response <-
---     liftIO $
---       respond' $
---         responseLBS
---           status200
---           [("Content-Type", "text/plain")]
---           "200 - Success"
---   response
-
 runWebApp ::
   ( MonadIO m,
     MonadReader Env m
@@ -165,6 +145,6 @@ runWebServer ::
   ) =>
   m ()
 runWebServer = do
-  putStrLn "http://localhost:8081/"
+  putStrLn "Webserver up and running at http://localhost:8081/"
-  runWebApp >>= liftIO . (run 8081 . logStdoutDev)
+  runWebApp >>= liftIO . (run 8081 . logStdout)
   return ()

backend/src/WebSocket/WSApp.hs

@@ -33,11 +33,11 @@ wsApp = do
   broadcastUserData
   withCleanUp $ forever $ do
     handleWSAction
-    broadcastUserData
 
 handleWSAction ::
   ( MonadWebSocketSession m,
     MonadConnectedClientsModify m,
+    MonadRoomDataStateRead m,
     MonadBroadcast m,
     MonadAllChat m
   ) =>
@@ -47,8 +47,10 @@ handleWSAction = do
   case msg of
     JoinRoomMessage _ -> do
       joinRoom
+      broadcastUserData
     ClientInfoMessage clientInfo -> do
       updateClientName clientInfo
+      broadcastUserData
     AllChatMessageIncomingMessage incomingMessage -> do
       broadCastAllChatMessage incomingMessage