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