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

@ -5,6 +5,8 @@ pkgs.mkShell {
haskell-language-server
stack
stylish-haskell
libnotify
];
}

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)