From 32c060575ce4d17430b7dc6432da1cb6b138dcb9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 7 May 2020 14:13:43 +0200 Subject: [PATCH] fix(course-register): swapped warning message --- src/Handler/Course/Register.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs index 506453d8e..106667ba3 100644 --- a/src/Handler/Course/Register.hs +++ b/src/Handler/Course/Register.hs @@ -142,9 +142,9 @@ courseRegisterForm (Entity cid Course{..}) = liftHandler $ do -> aFormToWForm $ fileUploadForm False (fslI . mkFs) courseApplicationsFiles when (is _Just $ registration >>= courseParticipantAllocated . entityVal) $ - wformMessage =<< messageIconI Warning IconExamRegisterFalse MsgCourseDeregistrationNoShow + wformMessage =<< messageIconI Warning IconExamRegisterFalse MsgCourseDeregistrationAllocationLog when (is _Just (registration >>= courseParticipantAllocated . entityVal) && courseDeregisterNoShow) $ - wformMessage =<< messageIconI Warning IconEnrolFalse MsgCourseDeregistrationAllocationLog + wformMessage =<< messageIconI Warning IconEnrolFalse MsgCourseDeregistrationNoShow return $ CourseRegisterForm <$ secretRes