chore(tutorial-users): fix qualification audit

2022-12-13 20:19:45 +01:00 · 2022-12-13 20:19:45 +01:00 · d195daadfc
commit d195daadfc
parent a4fc235ed4
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Tutorial/Users.hs
+++ b/src/Handler/Tutorial/Users.hs
@ -98,7 +98,7 @@ postTUsersR tid ssh csh tutn = do
    (TutorialUserGrantQualificationData{..}, selectedUsers) -> do
      today <- localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime
      runDB . forM_ selectedUsers $ \qualificationUserUser -> void $ do
-        quid <- upsert
+        Entity quid _ <- upsert
          QualificationUser
            { qualificationUserQualification =  tuQualification
            , qualificationUserValidUntil    =  tuValidUntil