From ce0f48b82aa5b6744b6533e92178b071539151f5 Mon Sep 17 00:00:00 2001
From: Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
Date: Thu, 18 Mar 2021 15:00:58 +0100
Subject: [PATCH] chore: don't redirect, but show a nullResult for Left

---
 src/Handler/Exam/AutoOccurrence.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 482f2d550..34e708482 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -152,7 +152,13 @@ postEAutoOccurrenceR tid ssh csh examn = do
     (eaofMapping, eaofAssignment, _ignoredOccurrences) <- case autoOccurrenceResult of
       (Left e) -> do
         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
     -- TODO use returned ignoredOccurrences
     return $ Just ExamAutoOccurrenceAcceptForm{..}