From 2462c68f49d9952eeb4c9f5413c53d307f10975a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 21 Nov 2019 16:17:54 +0100
Subject: [PATCH] fix(submissions): fix users being deleted for other
 submissions

---
 src/Handler/Submission.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index d132683b1..0e7cbe547 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -486,7 +486,7 @@ submissionHelper tid ssh csh shn mcid = do
             | otherwise -> case change of
               Left subEmail -> deleteInvitation @SubmissionUser smid subEmail
               Right subUid  -> do
-                deleteWhere [SubmissionUserUser ==. subUid]
+                deleteBy $ UniqueSubmissionUser subUid smid
                 audit $ TransactionSubmissionUserDelete smid subUid
           
           addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated