From f9930f2a00d1e0f0af9b7f2af7c387bcc09cef5a Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Fri, 30 Jun 2023 15:30:32 +0000
Subject: [PATCH] fix(build): minor

---
 src/Handler/LMS.hs               | 1 +
 src/Handler/Utils/Table/Cells.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs
index 398835d8a..0a50be36f 100644
--- a/src/Handler/LMS.hs
+++ b/src/Handler/LMS.hs
@@ -19,6 +19,7 @@ module Handler.LMS
   , getLmsResultUploadR   , postLmsResultUploadR  , postLmsResultDirectR
   , getLmsFakeR           , postLmsFakeR
   , getLmsUserR
+  , getLmsUserSchoolR
   , getLmsUserAllR     
   )
   where
diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs
index 2757a9574..6e12bef8d 100644
--- a/src/Handler/Utils/Table/Cells.hs
+++ b/src/Handler/Utils/Table/Cells.hs
@@ -340,7 +340,7 @@ qualificationValidUntilCell' mbToLink d qb qu = cell $ case mbToLink of
     Nothing     -> headWgt <> dateWgt
     Just toLink -> do 
       uuid <- liftHandler $ encrypt $ qu ^. hasQualificationUser . _qualificationUserUser
-      let modalWgt = modal blockWgt (Left $ SomeRoute $ toLink uuid)
+      let modalWgt = modal dateWgt (Left $ SomeRoute $ toLink uuid)
       headWgt <> modalWgt
   where       
     dateWgt = formatTimeW SelFormatDate (qu ^. hasQualificationUser . _qualificationUserValidUntil)