From e58e33e47ff7d1dd027cfb429139d1e7636472c9 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 21 Feb 2019 15:37:40 +0100
Subject: [PATCH] Minor bugfix: QueueNotfication for UserRightsUpdate

---
 src/Jobs/Handler/QueueNotification.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Jobs/Handler/QueueNotification.hs b/src/Jobs/Handler/QueueNotification.hs
index 5dfdc20fa..3d226f72a 100644
--- a/src/Jobs/Handler/QueueNotification.hs
+++ b/src/Jobs/Handler/QueueNotification.hs
@@ -4,7 +4,7 @@ module Jobs.Handler.QueueNotification
 
 import Import hiding ((\\))
 
-import Data.List ((\\))
+import Data.List (nub, (\\))
 
 import Jobs.Types
 
@@ -67,7 +67,7 @@ determineNotificationCandidates NotificationUserRightsUpdate{..}
         E.on $ admin E.^. UserAdminUser E.==. user E.^. UserId
         E.where_ $ admin E.^. UserAdminSchool `E.in_` E.valList newAdminSchools
         return user
-      return $ affectedUser <> affectedAdmins
+      return $ nub $ affectedUser <> affectedAdmins
 
 
 classifyNotification :: Notification -> DB NotificationTrigger