more fixes

backend/src/RoomDataHandler.hs

@@ -49,13 +49,12 @@ roomDataHandler ::
 roomDataHandler = do
   newRoomData <- parseBodyOrBadRequest
   liftIO $ putStrLn "Got triggered from prosody"
-  whenM (roomStateDiffers newRoomData) $ do
+  (openedRooms, closedRooms) <- setRoomDataState newRoomData
-    (openedRooms, closedRooms) <- setRoomDataState newRoomData
 
-    mapM_ notifyRoomOpend openedRooms
+  mapM_ notifyRoomOpend openedRooms
-    mapM_ notifyRoomClosed closedRooms
+  mapM_ notifyRoomClosed closedRooms
 
-    broadcastUserData
+  broadcastUserData
   success
 
 parseBodyOrBadRequest ::

backend/src/State/RoomsState.hs

@@ -26,16 +26,23 @@ class HasRoomsState a where
 updateRoomState ::
   ( HasRoomsState env,
     MonadIO m,
-    MonadReader env m
+    MonadReader env m,
+    MonadRoomDataStateRead m
   ) =>
   RoomsData ->
   m RoomsStateDiff
 updateRoomState newData = do
   state <- getRoomsState <$> ask
-  liftIO $ putStrLn "Upating room state"
+  current <- getRoomDataState
-  diff <- updateGenericTVarStateWithQuery state roomStateDiff newData
+  if not $ eqIgnoreOrdering newData current
-  liftIO $ putStrLn "Done Upating room state"
+    then
-  return diff
+      ( do
+          liftIO $ putStrLn "Upating room state"
+          diff <- updateGenericTVarStateWithQuery state roomStateDiff newData
+          liftIO $ putStrLn "Done Upating room state"
+          return diff
+      )
+    else return ([], [])
 
 getRoomState ::
   ( HasRoomsState env,