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 $ "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)
|
||||
|
||||
|
|
Loading…
Reference in a new issue