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

chore: don't redirect, but show a nullResult for Left

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-18 15:00:58 +01:00 committed by Gregor Kleen
parent fabf56c164
commit ce0f48b82a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -152,7 +152,13 @@ postEAutoOccurrenceR tid ssh csh examn = do
(eaofMapping, eaofAssignment, _ignoredOccurrences) <- case autoOccurrenceResult of (eaofMapping, eaofAssignment, _ignoredOccurrences) <- case autoOccurrenceResult of
(Left e) -> do (Left e) -> do
addMessageI Error e addMessageI Error e
redirect $ CExamR tid ssh csh examn EUsersR pure ( ExamOccurrenceMapping {
examOccurrenceMappingRule = examOccurrenceRule,
examOccurrenceMappingMapping = Map.empty
}
, Map.map (view _2) participants'
, eaocIgnoreRooms eaofConfig
)
(Right r) -> pure r (Right r) -> pure r
-- TODO use returned ignoredOccurrences -- TODO use returned ignoredOccurrences
return $ Just ExamAutoOccurrenceAcceptForm{..} return $ Just ExamAutoOccurrenceAcceptForm{..}