diff --git a/src/Utils/Course.hs b/src/Utils/Course.hs index ce56d4220..e6c6c93db 100644 --- a/src/Utils/Course.hs +++ b/src/Utils/Course.hs @@ -49,7 +49,6 @@ isSchoolAdmin muid AuthTagActive{..} ssh = E.exists . E.from $ \(user `E.InnerJo E.&&. userFunction E.^. UserFunctionFunction E.==. E.val SchoolAdmin E.&&. E.val (authTagIsActive AuthAdmin) --- TODO: find better name isSchoolAdminLike :: Maybe UserId -> AuthTagActive -> E.SqlExpr (E.Value SchoolId) -> E.SqlExpr (E.Value Bool) isSchoolAdminLike muid ata@AuthTagActive{..} ssh = isSchoolAdmin muid ata ssh