fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: build

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-29 13:30:30 +01:00
parent b1641ad57e
commit 6322fd449b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/News.hs
View File

@ -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