minor fix

This commit is contained in:
qvalentin 2025-01-21 21:21:21 +01:00
parent 939eb59714
commit 1a44dae580
2 changed files with 3 additions and 1 deletions

View file

@ -62,7 +62,7 @@ roomStateDiffInOpenRooms newData = do
current <- getRoomDataState
let newRooms = filter roomNotEmpty $ filter (\newRoom -> isNothing $ find (sameName newRoom) current) newData
let oldRooms = filter (\newRoom -> isJust $ find (sameName newRoom) current) newData
let oldRooms = filter roomNotEmpty $ filter (\oldRoom -> isNothing $ find (sameName oldRoom) newData) current
return (newRooms, oldRooms)