diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 670cb1c17..96ad16794 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -100,7 +100,7 @@ colSheet = sortable (Just "sheet") (i18nCell MsgSheet) colCorrector :: IsDBTable m a => Colonnade _ CorrectionTableData (DBCell m a) colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector) $ \case - DBRow{ dbrOutput = (_, _, _, Nothing, _) } -> cell mempty + DBRow{ dbrOutput = (_, _, _, Nothing , _) } -> cell mempty DBRow{ dbrOutput = (_, _, _, Just corr, _) } -> textCell . display . userDisplayName $ entityVal corr colSubmissionLink :: IsDBTable m a => Colonnade _ CorrectionTableData (DBCell m a) diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 05ae4e04b..fcfde2613 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -433,15 +433,15 @@ newCourseForm template = identForm FIDcourse $ \html -> do (result, widget) <- flip (renderAForm FormStandard) html $ CourseForm -- <$> pure cid -- $ join $ cfCourseId <$> template -- why doesnt this work? <$> aopt hiddenField "courseId" (cfCourseId <$> template) - <*> areq (ciField textField) (fslI MsgCourseName) (cfName <$> template) + <*> areq (ciField textField) (fslI MsgCourseName) (cfName <$> template) <*> aopt htmlField (fslI MsgCourseDescription & setTooltip MsgCourseDescriptionTip) (cfDesc <$> template) - <*> aopt urlField (fslI MsgCourseHomepage) (cfLink <$> template) + <*> aopt urlField (fslI MsgCourseHomepage) (cfLink <$> template) <*> areq (ciField textField) (fslI MsgCourseShorthand -- & addAttr "disabled" "disabled" & setTooltip MsgCourseShorthandUnique) (cfShort <$> template) - <*> areq termActiveField (fslI MsgCourseSemester) (cfTerm <$> template) + <*> areq termActiveField (fslI MsgCourseSemester) (cfTerm <$> template) <*> areq schoolField (fslI MsgCourseSchool) (cfSchool <$> template) <*> aopt (natField "Kapazität") (fslI MsgCourseCapacity & setTooltip MsgCourseCapacityTip diff --git a/templates/course.hamlet b/templates/course.hamlet index 2f2a56a1e..f45717007 100644 --- a/templates/course.hamlet +++ b/templates/course.hamlet @@ -6,7 +6,7 @@