fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(submissions): allow user to resolve themself for auth'stmt'

Browse Source
This commit is contained in:
Gregor Kleen 2021-07-30 19:18:02 +02:00
parent 66f5e96eca
commit 5bbb86aa77
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/Submission/Helper.hs
View File

@ -181,6 +181,7 @@ makeSubmissionForm cid sheetEnt@(Entity shid _) msmid uploadMode grouping mPrev
prefillUsers' <- lift . lift . fmap catMaybes . for (Set.toList prefillUsers) $ \case prefillUsers' <- lift . lift . fmap catMaybes . for (Set.toList prefillUsers) $ \case
Right uid' | doAuthorshipStatements Right uid' | doAuthorshipStatements
, uid /= uid'
-> fmap (Left . userEmail) <$> get uid' -> fmap (Left . userEmail) <$> get uid'
other -> return $ pure other other -> return $ pure other