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

chore: remove TODO marker

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-01 17:44:49 +01:00 committed by Wolfgang Witt
parent 767090ded1
commit a7671dbec6
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Exam/AutoOccurrence.hs
View File

@ -115,9 +115,6 @@ postEAutoOccurrenceR tid ssh csh examn = do
return (uid, (userRec, examRegistrationOccurrence)) return (uid, (userRec, examRegistrationOccurrence))
occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, fromIntegral examOccurrenceCapacity)) occurrences occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, fromIntegral examOccurrenceCapacity)) occurrences
autoOccurrenceResult = examAutoOccurrence eId examOccurrenceRule eaofConfig occurrences' participants' autoOccurrenceResult = examAutoOccurrence eId examOccurrenceRule eaofConfig occurrences' participants'
-- TODO catch error here
-- lookup from ExamOccurrenceId -> Name can happen here
-- examOccurrenceName :: CI Text is probably the right one
(eaofMapping, eaofAssignment) <- case autoOccurrenceResult of (eaofMapping, eaofAssignment) <- case autoOccurrenceResult of
(Left e) -> do (Left e) -> do
addMessageI Error e addMessageI Error e
@ -145,7 +142,6 @@ postEAutoOccurrenceR tid ssh csh examn = do
fmap fold . iforM eaofAssignment $ \pid occ -> case occ of fmap fold . iforM eaofAssignment $ \pid occ -> case occ of
Just _ -> Sum <$> updateWhereCount [ ExamRegistrationExam ==. eId, ExamRegistrationUser ==. pid, ExamRegistrationOccurrence ==. Nothing ] [ ExamRegistrationOccurrence =. occ ] Just _ -> Sum <$> updateWhereCount [ ExamRegistrationExam ==. eId, ExamRegistrationUser ==. pid, ExamRegistrationOccurrence ==. Nothing ] [ ExamRegistrationOccurrence =. occ ]
Nothing -> return mempty Nothing -> return mempty
-- TODO here we produce the html redirect
addMessageI Success $ MsgExamAutoOccurrenceParticipantsAssigned assignedCount addMessageI Success $ MsgExamAutoOccurrenceParticipantsAssigned assignedCount
redirect $ CExamR tid ssh csh examn EUsersR redirect $ CExamR tid ssh csh examn EUsersR