fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix: build

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-29 13:32:02 +01:00
parent 6322fd449b
commit 68b8b458b1
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.&&. earliestOccurrence E.>=. E.just (E.val now)
E.where_ $ regToWithinFortnight E.||. startExamFortnight E.||. startOccurFortnight E.||. startEarliest E.where_ $ regToWithinFortnight E.||. startExamFortnight E.||. startOccurFortnight E.||. startEarliest
let showRoom = showExamOccurrenceRoom (E.val uid) occurrence 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) return (course, exam, register, occurrence, showRoom)
dbtRowKey = queryExam >>> (E.^. ExamId) dbtRowKey = queryExam >>> (E.^. ExamId)
dbtProj = return dbtProj = return