fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor bugfix: QueueNotfication for UserRightsUpdate

Browse Source
This commit is contained in:
SJost 2019-02-21 15:37:40 +01:00
parent 29189bf8f8
commit e58e33e47f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Jobs/Handler/QueueNotification.hs
View File

@ -4,7 +4,7 @@ module Jobs.Handler.QueueNotification
import Import hiding ((\\)) import Import hiding ((\\))
import Data.List ((\\)) import Data.List (nub, (\\))
import Jobs.Types import Jobs.Types
@ -67,7 +67,7 @@ determineNotificationCandidates NotificationUserRightsUpdate{..}
E.on $ admin E.^. UserAdminUser E.==. user E.^. UserId E.on $ admin E.^. UserAdminUser E.==. user E.^. UserId
E.where_ $ admin E.^. UserAdminSchool `E.in_` E.valList newAdminSchools E.where_ $ admin E.^. UserAdminSchool `E.in_` E.valList newAdminSchools
return user return user
return $ affectedUser <> affectedAdmins return $ nub $ affectedUser <> affectedAdmins
classifyNotification :: Notification -> DB NotificationTrigger classifyNotification :: Notification -> DB NotificationTrigger