From f1e2c6d3af734aa26b70b5946f382b3e193b4751 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 7 Aug 2018 10:01:27 +0200 Subject: [PATCH] Remove dead code --- src/Foundation.hs | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index 7aed4d78c..e94b8950e 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -352,15 +352,6 @@ knownTags = Map.fromList -- should not throw exceptions, i.e. no getBy404 or req _ -> return () return Authorized - - let started = sheetActiveFrom <= cTime || NTop sheetVisibleFrom <= (NTop $ Just cTime) - case subRoute of - SFileR SheetExercise _ -> guard started - SFileR SheetMarking _ -> mzero -- only for correctors and lecturers - SubmissionNewR -> guard $ sheetActiveFrom <= cTime && cTime <= sheetActiveTo - SubmissionR _ _ -> guard $ sheetActiveFrom <= cTime && cTime <= sheetActiveTo - _ -> guard started - return Authorized CourseR tid csh CRegisterR -> maybeT (unauthorizedI MsgUnauthorizedCourseTime) $ do Entity cid Course{..} <- MaybeT . getBy $ CourseTermShort tid csh