From d195daadfc7af944c78cabafa9c71ecf0b21d529 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 13 Dec 2022 20:19:45 +0100
Subject: [PATCH] chore(tutorial-users): fix qualification audit

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

diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs
index be5c9a58b..ec40273ee 100644
--- 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