From 64d3ceb56d4a7ce09d7760c7452f48e12b182070 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 24 Nov 2022 18:51:00 +0100 Subject: [PATCH] feat(avs): register course participants for day groups per default --- src/Handler/Course/Avs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Course/Avs.hs b/src/Handler/Course/Avs.hs index fbc20efc1..dc4bfe53f 100644 --- a/src/Handler/Course/Avs.hs +++ b/src/Handler/Course/Avs.hs @@ -36,7 +36,7 @@ courseAvsRegisterForm template = wFormToAForm $ do <*> optionalActionA ( areq dayField (fslI MsgCourseAvsRegisterTutorialDay) (Just . fromMaybe today . join $ cavsregTutorial <$> template) ) - (fslI MsgCourseAvsRegisterCreateTutorial) (is _Just . cavsregTutorial <$> template) + (fslI MsgCourseAvsRegisterCreateTutorial) ((is _Just . cavsregTutorial <$> template) <|> Just True) getCAvsRegisterR, postCAvsRegisterR :: TermId -> SchoolId -> CourseShorthand -> Handler Html