diff --git a/backend/src/BroadcastUserData.hs b/backend/src/BroadcastUserData.hs
index 3a7dd83..4aa652d 100644
--- a/backend/src/BroadcastUserData.hs
+++ b/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
diff --git a/backend/src/State/RoomsState.hs b/backend/src/State/RoomsState.hs
index f42eff1..7310878 100644
--- a/backend/src/State/RoomsState.hs
+++ b/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