chore: fix refactor woopsie

2022-12-13 19:57:45 +01:00 · 2022-12-13 19:57:45 +01:00 · 8dc7d18bf1
commit 8dc7d18bf1
parent 66b4cf8542
1 changed files with 2 additions and 0 deletions
--- a/src/Handler/Course/List.hs
+++ b/src/Handler/Course/List.hs
@ -123,6 +123,8 @@ makeCourseTable colChoices psValidator' = do
        course <- view queryCourse
        school <- view querySchool

+        lift . E.on $ course E.^. CourseSchool E.==. school E.^. SchoolId
+
        registered <- view $ queryIsRegistered muid ata
        isEditor <- view $ queryIsEditor muid ata