fix
This commit is contained in:
parent
a7ce816dc6
commit
969ae9eaa0
|
@ -64,7 +64,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) 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
|
||||
|
||||
return (newRooms, oldRooms)
|
||||
|
|
Loading…
Reference in a new issue