From b1641ad57e036c33d12cc9002f2355231676f9d1 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 29 Nov 2020 13:24:16 +0100 Subject: [PATCH] fix: build --- src/Handler/News.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/News.hs b/src/Handler/News.hs index fa26931dd..0b655ba89 100644 --- a/src/Handler/News.hs +++ b/src/Handler/News.hs @@ -247,8 +247,8 @@ newsUpcomingExams uid = do E.&&. earliestOccurrence E.<=. E.just (E.val fortnight) -- E.&&. earliestOccurrence E.>=. E.just (E.val now) E.where_ $ regToWithinFortnight E.||. startExamFortnight E.||. startOccurFortnight E.||. startEarliest - let showRoom = showExamOccurrenceRoom (E.val uid) examOccurrence - E.||. E.not_ (examOccurrence E.^. ExamOccurrenceRoomHidden) + let showRoom = showExamOccurrenceRoom (E.val uid) occurrence + E.||. E.not_ (occurrence E.^. ExamOccurrenceRoomHidden) return (course, exam, register, occurrence, showRoom) dbtRowKey = queryExam >>> (E.^. ExamId) dbtProj = return