fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(tutorial-users): fix qualification audit

Browse Source
This commit is contained in:
Sarah Vaupel 2022-12-13 20:19:45 +01:00
parent a4fc235ed4
commit d195daadfc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Tutorial/Users.hs
View File

@ -98,7 +98,7 @@ postTUsersR tid ssh csh tutn = do
(TutorialUserGrantQualificationData{..}, selectedUsers) -> do (TutorialUserGrantQualificationData{..}, selectedUsers) -> do
today <- localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime today <- localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime
runDB . forM_ selectedUsers $ \qualificationUserUser -> void $ do runDB . forM_ selectedUsers $ \qualificationUserUser -> void $ do
quid <- upsert Entity quid _ <- upsert
QualificationUser QualificationUser
{ qualificationUserQualification = tuQualification { qualificationUserQualification = tuQualification
, qualificationUserValidUntil = tuValidUntil , qualificationUserValidUntil = tuValidUntil