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:05 +02:00
parent e9d67fdac9
commit e08f9f2ca1
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

@ -141,7 +141,7 @@ courseAllocationRegistrationOpen now cid maid = E.exists . E.from $ \(allocation
(\registerFrom -> registerFrom E.<=. E.val now) (\registerFrom -> registerFrom E.<=. E.val now)
(allocation E.^. AllocationRegisterFrom) (allocation E.^. AllocationRegisterFrom)
E.&&. E.maybe E.&&. E.maybe
(E.val 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.val True) (\aid -> aid E.==. allocation E.^. AllocationId) maid