From 9fb9540bf7fd16334eeaf09d22c05a1ce80b3737 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Wed, 10 Jul 2019 12:12:10 +0200
Subject: [PATCH] fix: removed duplicated code from merge

---
 src/Foundation.hs | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index f71fbd6e0..d49734af3 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -748,14 +748,6 @@ tagAccessPredicate AuthTime = APDB $ \mAuthId route _ -> case route of
     guard visible
     return Authorized
 
-  CourseR tid ssh csh (MaterialR mnm _) -> maybeT (unauthorizedI MsgUnauthorizedMaterialTime) $ do
-    cid <- $cachedHereBinary (tid, ssh, csh) . MaybeT . getKeyBy $ TermSchoolCourseShort tid ssh csh
-    Entity _mid Material{materialVisibleFrom} <- $cachedHereBinary (cid, mnm) . MaybeT . getBy $ UniqueMaterial cid mnm
-    cTime <- liftIO getCurrentTime
-    let visible = NTop materialVisibleFrom <= NTop (Just cTime)
-    guard visible
-    return Authorized
-
   CourseR tid ssh csh CRegisterR -> do
     now <- liftIO getCurrentTime
     mbc <- $cachedHereBinary (tid, ssh, csh) . getBy $ TermSchoolCourseShort tid ssh csh