From b1991eead90a21a296fa0436485ea2532223c72d Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 24 Jan 2022 19:33:26 +0100 Subject: [PATCH] fix(labels): fix exam-label delete action --- src/Handler/ExamOffice/Exams.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Handler/ExamOffice/Exams.hs b/src/Handler/ExamOffice/Exams.hs index abdf5e4a9..366f226d6 100644 --- a/src/Handler/ExamOffice/Exams.hs +++ b/src/Handler/ExamOffice/Exams.hs @@ -417,7 +417,9 @@ postEOExamsR = do addMessageI Success $ MsgExamLabelsSet (Set.size exams) redirect $ ExamOfficeR EOExamsR ExamRemoveLabelData -> do - runDB . forM_ (Set.toList exams) $ either delete delete + runDB . forM_ (Set.toList exams) $ either + (\eeId -> E.delete . E.from $ \extExLabel -> E.where_ (extExLabel E.^. ExamOfficeExternalExamLabelExternalExam E.==. E.val eeId)) + (\eId -> E.delete . E.from $ \exLabel -> E.where_ (exLabel E.^. ExamOfficeExamLabelExam E.==. E.val eId)) addMessageI Success $ MsgExamLabelsRemoved (Set.size exams) redirect $ ExamOfficeR EOExamsR