From 969ae9eaa0bd39ae10771f22beade2e862deb7d0 Mon Sep 17 00:00:00 2001 From: qvalentin Date: Tue, 21 Jan 2025 21:36:39 +0100 Subject: [PATCH] fix --- backend/src/State/RoomsState.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)