fraport/fradrive-old
Archived
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:24:16 +01:00
parent 43bb0abe72
commit b1641ad57e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/News.hs
View File

@ -247,8 +247,8 @@ newsUpcomingExams uid = do
E.&&. earliestOccurrence E.<=. E.just (E.val fortnight) E.&&. earliestOccurrence E.<=. E.just (E.val fortnight)
-- 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) examOccurrence let showRoom = showExamOccurrenceRoom (E.val uid) occurrence
E.||. E.not_ (examOccurrence E.^. ExamOccurrenceRoomHidden) E.||. 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