Bugfix: assignAction no longer delivers duplicate actions

This commit is contained in:
SJost 2018-11-09 17:45:06 +01:00
parent b9afc667fe
commit af40d86de9

View File

@ -372,7 +372,7 @@ assignAction selId = ( CorrSetCorrector
E.where_ $ either (\cId -> course E.^. CourseId E.==. E.val cId) (\shId -> sheet E.^. SheetId E.==. E.val shId) selId E.where_ $ either (\cId -> course E.^. CourseId E.==. E.val cId) (\shId -> sheet E.^. SheetId E.==. E.val shId) selId
return user E.distinct $ return user
mr <- getMessageRender mr <- getMessageRender