From 1a44dae5804a515524750bef960f763aa4df9eff Mon Sep 17 00:00:00 2001
From: qvalentin <valentin.theodor@web.de>
Date: Tue, 21 Jan 2025 21:21:21 +0100
Subject: [PATCH] minor fix

---
 backend/shell.nix               | 2 ++
 backend/src/State/RoomsState.hs | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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)