From 68b8b458b1e02ec992df811cca2cda08a2f77d9a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Sun, 29 Nov 2020 13:32:02 +0100
Subject: [PATCH] fix: build

---
 src/Handler/News.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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