debug

backend/src/BroadcastUserData.hs

@@ -46,5 +46,5 @@ broadCastToClientsGeneric message = do
 
 broadcast :: Text -> ConnectedClients -> IO ()
 broadcast message clients = do
-  putStrLn message
+  putStrLn $ "Broadcasting: " ++ message
   forM_ clients $ \client -> WS.sendTextData (conn client) message

backend/src/State/RoomsState.hs

@@ -54,13 +54,16 @@ roomStateDiffers newData = do
   not . eqIgnoreOrdering newData <$> getRoomDataState
 
 roomStateDiffInOpenRooms ::
-  ( MonadRoomDataStateRead m
+  ( MonadRoomDataStateRead m,
+    MonadIO m
   ) =>
   RoomsData ->
   m (RoomsData, RoomsData)
 roomStateDiffInOpenRooms newData = do
   current <- getRoomDataState
 
+  liftIO $ putStrLn $ pack $ "Current rooms: " ++ show current
+  liftIO $ putStrLn $ pack $ "New rooms: " ++ show newData
   let newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) current) newData
   let oldRooms = filter roomNotEmpty $ filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current