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

Apply 1 suggestion(s) to 1 file(s)

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-10 11:54:16 +02:00
parent e08f9f2ca1
commit 65c85e7607
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/Utils/Course.hs
View File

@ -144,7 +144,7 @@ courseAllocationRegistrationOpen now cid maid = E.exists . E.from $ \(allocation
E.true E.true
(\registerTo -> E.val now E.<=. registerTo) (\registerTo -> E.val now E.<=. registerTo)
(allocation E.^. AllocationRegisterTo) (allocation E.^. AllocationRegisterTo)
E.&&. maybe (E.val True) (\aid -> aid E.==. allocation E.^. AllocationId) maid E.&&. maybe E.true (\aid -> aid E.==. allocation E.^. AllocationId) maid
numCourseParticipants :: E.SqlExpr (E.Value CourseId) -> E.SqlExpr (E.Value Int) numCourseParticipants :: E.SqlExpr (E.Value CourseId) -> E.SqlExpr (E.Value Int)