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