diff --git a/backend/src/State/RoomsState.hs b/backend/src/State/RoomsState.hs index 7310878..1649aeb 100644 --- a/backend/src/State/RoomsState.hs +++ b/backend/src/State/RoomsState.hs @@ -64,7 +64,7 @@ roomStateDiffInOpenRooms newData = do 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 newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) (filter roomNotEmpty current)) newData let oldRooms = filter roomNotEmpty $ filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current return (newRooms, oldRooms)