diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs index 18529f1bc..983830101 100644 --- a/src/Handler/Exam/AutoOccurrence.hs +++ b/src/Handler/Exam/AutoOccurrence.hs @@ -47,6 +47,8 @@ embedRenderMessage ''UniWorX ''ExamAutoOccurrenceButton id instance Button UniWorX ExamAutoOccurrenceButton where btnClasses BtnExamAutoOccurrenceNudgeUp = [BCIsButton] btnClasses BtnExamAutoOccurrenceNudgeDown = [BCIsButton] + btnClasses BtnExamAutoOccurrenceIgnore = [BCIsButton] + btnClasses BtnExamAutoOccurrenceReconsider = [BCIsButton] btnClasses _ = [BCIsButton, BCPrimary]