From 13af0352230b566783865a4fe823262bcab8745e Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Thu, 18 Mar 2021 12:37:15 +0100 Subject: [PATCH] chore: correct button classes --- src/Handler/Exam/AutoOccurrence.hs | 2 ++ 1 file changed, 2 insertions(+) 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]