Minor refactoring

backend/src/RoomDataHandler.hs

@@ -44,6 +44,7 @@ roomDataHandler ::
   m ResponseReceived
 roomDataHandler = do
   newRoomData <- parseBodyOrBadRequest
+  liftIO $ putStrLn "Got triggered form prosody"
   whenM (roomStateDiffers newRoomData) $ do
     setRoomDataState newRoomData
     broadcastUserData

backend/src/WebSocket/Server.hs

@@ -10,8 +10,7 @@ import ClassyPrelude
 import Data.UUID.V4 (nextRandom)
 import Network.WebSockets qualified as WS
 import Types.AppTypes
-import WebSocket
-import WebSocket (WSApp (..))
+import WebSocket.WSApp (WSApp (..), WSEnv (..), wsApp)
 
 runWebSocketServer ::
   ( MonadIO m,

backend/src/WebSocket/WSApp.hs

@@ -1,9 +1,4 @@
-{-# LANGUAGE DerivingVia #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE UndecidableInstances #-}
-
-module WebSocket (WSEnv (..), wsApp, WSApp (..)) where
+module WebSocket.WSApp (WSEnv (..), wsApp, WSApp (..)) where
 
 import BroadcastUserData
   ( MonadBroadcast (..),
@@ -30,8 +25,8 @@ wsApp ::
   ) =>
   m ()
 wsApp = do
-  msg <- getTypedWSMessage
-  client <- newClient msg
+  clientInfo <- getTypedWSMessage
+  client <- newClient clientInfo
   addWSClient client
   broadcastUserData
   withCleanUp $ forever $ do