fix room close

This commit is contained in:
qvalentin 2025-01-21 21:41:09 +01:00
parent 969ae9eaa0
commit 6d4c0f73e5

View file

@ -65,7 +65,7 @@ roomStateDiffInOpenRooms newData = do
liftIO $ putStrLn $ pack $ "Current rooms: " ++ show current liftIO $ putStrLn $ pack $ "Current rooms: " ++ show current
liftIO $ putStrLn $ pack $ "New rooms: " ++ show newData liftIO $ putStrLn $ pack $ "New rooms: " ++ show newData
let newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) (filter roomNotEmpty 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 let oldRooms = filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current
return (newRooms, oldRooms) return (newRooms, oldRooms)