diff --git a/backend/shell.nix b/backend/shell.nix index 7e83bc2..a24dad2 100644 --- a/backend/shell.nix +++ b/backend/shell.nix @@ -5,6 +5,8 @@ pkgs.mkShell { haskell-language-server stack stylish-haskell + + libnotify ]; } diff --git a/backend/src/State/RoomsState.hs b/backend/src/State/RoomsState.hs index af7e40b..f42eff1 100644 --- a/backend/src/State/RoomsState.hs +++ b/backend/src/State/RoomsState.hs @@ -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)