diff --git a/src/Handler/News.hs b/src/Handler/News.hs index 923a63927..4595d1eb2 100644 --- a/src/Handler/News.hs +++ b/src/Handler/News.hs @@ -248,7 +248,7 @@ newsUpcomingExams uid = do -- E.&&. earliestOccurrence E.>=. E.just (E.val now) E.where_ $ regToWithinFortnight E.||. startExamFortnight E.||. startOccurFortnight E.||. startEarliest let showRoom = showExamOccurrenceRoom (E.val uid) occurrence - E.||. E.maybe_ E.false E.not_ (occurrence E.?. ExamOccurrenceRoomHidden) + E.||. E.maybe E.false E.not_ (occurrence E.?. ExamOccurrenceRoomHidden) return (course, exam, register, occurrence, showRoom) dbtRowKey = queryExam >>> (E.^. ExamId) dbtProj = return