From d5b7b08f31288d73941933af66bfaf68aaf1926b Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 10 Aug 2020 11:52:37 +0200 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Utils/Course.hs | 1 - 1 file changed, 1 deletion(-) 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