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