From 8dc7d18bf19123fe6b2fb573cd4a50437cea5113 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 13 Dec 2022 19:57:45 +0100
Subject: [PATCH] chore: fix refactor woopsie

---
 src/Handler/Course/List.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs
index 7b558b46a..98618f45e 100644
--- 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