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)