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

chore: fix refactor woopsie

Browse Source
This commit is contained in:
Sarah Vaupel 2022-12-13 19:57:45 +01:00
parent 66b4cf8542
commit 8dc7d18bf1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/List.hs
View File

@ -123,6 +123,8 @@ makeCourseTable colChoices psValidator' = do
course <- view queryCourse course <- view queryCourse
school <- view querySchool school <- view querySchool
lift . E.on $ course E.^. CourseSchool E.==. school E.^. SchoolId
registered <- view $ queryIsRegistered muid ata registered <- view $ queryIsRegistered muid ata
isEditor <- view $ queryIsEditor muid ata isEditor <- view $ queryIsEditor muid ata