From 2c10a07a15836e1042938aeafb7247576346ec37 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Mon, 31 Oct 2022 18:06:16 +0100
Subject: [PATCH] chore(qualifications): fix build for filter by supervisor

---
 src/Handler/LMS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs
index f8b08ac15..d5818ce6b 100644
--- a/src/Handler/LMS.hs
+++ b/src/Handler/LMS.hs
@@ -387,7 +387,7 @@ mkLmsTable (Entity qid quali) acts restrict cols psValidator = do
       forMM_ (view $ _dbtProjFilter . _ltProjFilterMayAccess) $ \b -> do 
         euid <- encrypt $ user ^. _entityKey
         guardM . lift . lift . fmap (== b) . hasReadAccessTo . urlRoute $ ForProfileDataR euid -- TODO create a page with proper rights; this is only for admins!        
-      return (qusr,user,lusr,pjob,pjac)
+      return (qusr,user,lusr,pjob,E.Value pjac)
 
     dbtColonnade = cols
     dbtSorting = mconcat