Fix supportanfrage

src/Handler/Home.hs

@@ -5,37 +5,11 @@ import Handler.Utils
 
 import qualified Data.Map as Map
 import qualified Data.Set as Set
-
-import Data.Time hiding (formatTime)
-
--- import qualified Data.Text as T
--- import Yesod.Form.Bootstrap3
-
--- import Web.PathPieces (showToPathPiece, readFromPathPiece)
-
--- import Control.Lens
--- import Colonnade hiding (fromMaybe, singleton)
--- import Yesod.Colonnade
 import qualified Database.Esqueleto as E
 
 import Jobs
-
--- import Text.Shakespeare.Text
-
 import Development.GitRev
 
--- import qualified Data.UUID.Cryptographic as UUID
-
-
--- CONSTANTS: TODO: make configurable elsewhere
-offSheetDeadlines :: NominalDiffTime
-offSheetDeadlines   = 15
-offCourseDeadlines :: NominalDiffTime
-offCourseDeadlines  = 15
---offExamDeadlines :: NominalDiffTime
---offExamDeadlines    = 15
-
-
 
 getHomeR :: Handler Html
 getHomeR = do
@@ -112,9 +86,7 @@ homeAnonymous = do
 homeUser :: Key User -> Handler Html
 homeUser uid = do
   cTime <- liftIO getCurrentTime
-  let fTime = addUTCTime (offSheetDeadlines * nominalDay) cTime
-
-      tableData :: E.LeftOuterJoin
+  let tableData :: E.LeftOuterJoin
                         (E.InnerJoin (E.InnerJoin (E.SqlExpr (Entity CourseParticipant)) (E.SqlExpr (Entity Course))) (E.SqlExpr (Entity Sheet)))
                         (E.InnerJoin (E.SqlExpr (Maybe (Entity Submission))) (E.SqlExpr (Maybe (Entity SubmissionUser))))
                   -> E.SqlQuery ( E.SqlExpr (E.Value (Key Term))
@@ -131,8 +103,6 @@ homeUser uid = do
         E.on $ course     E.^. CourseId        E.==. participant  E.^. CourseParticipantCourse
         E.where_ $ participant E.^. CourseParticipantUser E.==. E.val uid
             E.&&. sheet E.^. SheetActiveTo E.>=. E.val cTime
-            E.&&. sheet E.^. SheetActiveTo E.<=. E.val fTime
-        -- E.limit nrSheetDeadlines -- arbitrary limits are not intuitive
         return
           ( course  E.^. CourseTerm
           , course  E.^. CourseSchool