diff --git a/src/Handler/Sheet/Form.hs b/src/Handler/Sheet/Form.hs index 28fac1d1f..7de3e713e 100644 --- a/src/Handler/Sheet/Form.hs +++ b/src/Handler/Sheet/Form.hs @@ -185,10 +185,6 @@ makeSheetForm cId msId template = identifyForm FIDsheet . validateForm validateS $ classifySubmissionMode sfSubmissionMode /= SubmissionModeNone || sfType == NotGraded - -- TODO: do authorship statement validation - -- TODO: if school mode is none or required for this sheet (exam-related/exam-umrelated?), statement must be set accordingly (Just for required, Nothing for none) - -- TODO: if school prevents custom statements, statement must match current school statement - correctorForm :: Loads -> AForm Handler Loads correctorForm loads' = wFormToAForm $ do currentRoute <- fromMaybe (error "correctorForm called from 404-handler") <$> liftHandler getCurrentRoute