From 5bbb86aa7750dd907f49cb3ba5daf2cee8485bae Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 30 Jul 2021 19:18:02 +0200
Subject: [PATCH] fix(submissions): allow user to resolve themself for
 auth'stmt'

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

diff --git a/src/Handler/Submission/Helper.hs b/src/Handler/Submission/Helper.hs
index 3d6c8c579..b55486843 100644
--- a/src/Handler/Submission/Helper.hs
+++ b/src/Handler/Submission/Helper.hs
@@ -181,6 +181,7 @@ makeSubmissionForm cid sheetEnt@(Entity shid _) msmid uploadMode grouping mPrev
 
         prefillUsers' <- lift . lift . fmap catMaybes . for (Set.toList prefillUsers) $ \case
           Right uid' | doAuthorshipStatements
+                     , uid /= uid'
                        -> fmap (Left . userEmail) <$> get uid'
           other -> return $ pure other