From a7b7bdbea754873e11fea8d2af42bf3aacaff3f2 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Tue, 28 Jan 2020 16:15:18 +0100
Subject: [PATCH] fix: submission user notification recipients for pseudonym
 subs

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

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index df5aad3eb..9fb3215e8 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -953,7 +953,7 @@ postCorrectionsCreateR = do
                 , submissionUserSubmission = subId
                 }
               forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do
-                hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated uid subId
+                hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated sheetPseudonymUser subId
                 audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
               when (genericLength spGroup > maxSize) $
                 addMessageI Warning $ MsgSheetGroupTooLarge sheetGroupDesc
@@ -998,7 +998,7 @@ postCorrectionsCreateR = do
                 , submissionUserSubmission = subId
                 }
               forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do
-                hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated uid subId
+                hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated sheetPseudonymUser subId
                 audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
               when (length spGroup > 1) $
                 addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc