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

fix(authorship-statements): resolve exam-part to exam properly

Browse Source
This commit is contained in:
Gregor Kleen 2021-07-21 14:46:54 +02:00
parent 0b5b2ae025
commit 3a2d031bb5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Handler/Utils/AuthorshipStatement.hs
View File

@ -75,10 +75,12 @@ getSheetAuthorshipStatement (Entity _ Sheet{..}) = withCompatibleBackend @SqlBac
E.where_ $ course E.^. CourseId E.==. E.val sheetCourse E.where_ $ course E.^. CourseId E.==. E.val sheetCourse
return school return school
let examId = sheetAuthorshipStatementExam let examId = fmap Right sheetAuthorshipStatementExam
<|> sheetType ^? _examPart . re _SqlKey <|> fmap Left (sheetType ^? _examPart . re _SqlKey)
<|> sheetRequireExamRegistration <|> fmap Right sheetRequireExamRegistration
exam <- lift $ traverse getJust examId exam <- lift . for examId $ \case
Right e -> getJust e
Left epId -> getJust epId >>= getJust . examPartExam
let let
examAuthorshipStatement' = exam >>= examAuthorshipStatement examAuthorshipStatement' = exam >>= examAuthorshipStatement