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