fix room close
This commit is contained in:
parent
969ae9eaa0
commit
6d4c0f73e5
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue