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

fix: fix build

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-05 09:21:45 +02:00
parent 6d52ed5c4c
commit 1a66716e8a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Course/Application/Edit.hs
View File

@ -21,8 +21,10 @@ postCAEditR tid ssh csh cID = do
return (mAlloc, course, app, appUser) return (mAlloc, course, app, appUser)
isAdmin <- case mAlloc of isAdmin <- case mAlloc of
Just alloc -> hasWriteAccessTo $ SchoolR (alloc ^. _entityVal . _allocationSchool) SchoolEditR Just (Entity _ Allocation{..})
Nothing -> hasWriteAccessTo $ SchoolR (course ^. _entityVal . _courseSchool ) SchoolEditR -> hasWriteAccessTo $ SchoolR allocationSchool SchoolEditR
Nothing
-> hasWriteAccessTo $ SchoolR courseSchool SchoolEditR
afmLecturer <- hasWriteAccessTo $ CourseR courseTerm courseSchool courseShorthand CEditR afmLecturer <- hasWriteAccessTo $ CourseR courseTerm courseSchool courseShorthand CEditR
afmApplicantEdit <- hasWriteAccessTo $ CApplicationR tid ssh csh cID CAEditR -- TODO: Wrong. afmApplicantEdit <- hasWriteAccessTo $ CApplicationR tid ssh csh cID CAEditR -- TODO: Wrong.
courseCID <- encrypt cid :: Handler CryptoUUIDCourse courseCID <- encrypt cid :: Handler CryptoUUIDCourse