From 09a1c829bd9fd6b42b3f7616a903280b08ed01af Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Sat, 19 Jun 2021 12:58:55 +0200 Subject: [PATCH] refactor(sheets): remove obsolete form validation TODOs --- src/Handler/Sheet/Form.hs | 4 ---- 1 file changed, 4 deletions(-) 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