From 6322fd449bd83edf2e1909b95c6aa4c795d49a54 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Sun, 29 Nov 2020 13:30:30 +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 0b655ba89..923a63927 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.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