From 6d4c0f73e5b68b2bebdc69a0cab2d653ace51436 Mon Sep 17 00:00:00 2001 From: qvalentin Date: Tue, 21 Jan 2025 21:41:09 +0100 Subject: [PATCH] fix room close --- 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 1649aeb..fab907b 100644 --- a/backend/src/State/RoomsState.hs +++ b/backend/src/State/RoomsState.hs @@ -65,7 +65,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) (filter roomNotEmpty current)) newData - let oldRooms = filter roomNotEmpty $ filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current + let oldRooms = filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current return (newRooms, oldRooms)