fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(build): minor

Browse Source
This commit is contained in:
Steffen Jost 2023-06-30 15:30:32 +00:00
parent 6683d5e4e8
commit f9930f2a00
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/LMS.hs
View File

@ -19,6 +19,7 @@ module Handler.LMS
, getLmsResultUploadR , postLmsResultUploadR , postLmsResultDirectR , getLmsResultUploadR , postLmsResultUploadR , postLmsResultDirectR
, getLmsFakeR , postLmsFakeR , getLmsFakeR , postLmsFakeR
, getLmsUserR , getLmsUserR
, getLmsUserSchoolR
, getLmsUserAllR , getLmsUserAllR
) )
where where

2
src/Handler/Utils/Table/Cells.hs
View File

@ -340,7 +340,7 @@ qualificationValidUntilCell' mbToLink d qb qu = cell $ case mbToLink of
Nothing -> headWgt <> dateWgt Nothing -> headWgt <> dateWgt
Just toLink -> do Just toLink -> do
uuid <- liftHandler $ encrypt $ qu ^. hasQualificationUser . _qualificationUserUser uuid <- liftHandler $ encrypt $ qu ^. hasQualificationUser . _qualificationUserUser
let modalWgt = modal blockWgt (Left $ SomeRoute $ toLink uuid) let modalWgt = modal dateWgt (Left $ SomeRoute $ toLink uuid)
headWgt <> modalWgt headWgt <> modalWgt
where where
dateWgt = formatTimeW SelFormatDate (qu ^. hasQualificationUser . _qualificationUserValidUntil) dateWgt = formatTimeW SelFormatDate (qu ^. hasQualificationUser . _qualificationUserValidUntil)