diff --git a/src/Vervis/Handler/Repo.hs b/src/Vervis/Handler/Repo.hs
index cd297e2..346b9e0 100644
--- a/src/Vervis/Handler/Repo.hs
+++ b/src/Vervis/Handler/Repo.hs
@@ -61,7 +61,7 @@ import Formatting (sformat, stext, (%))
 import System.Directory
 import System.Hourglass (dateCurrent)
 import Text.Blaze.Html (Html)
-import Yesod.Auth (requireAuth)
+import Yesod.Auth (requireAuthId)
 import Yesod.Core (defaultLayout, setMessage)
 import Yesod.Core.Handler (lookupPostParam, redirect, notFound)
 import Yesod.Form.Functions (runFormPost)
@@ -125,7 +125,7 @@ postReposR user = do
                 case nrpVcs nrp of
                     VCSDarcs -> D.createRepo parent repoName
                     VCSGit   -> G.createRepo parent repoName
-            Entity pid person <- requireAuth
+            pid <- requireAuthId
             runDB $ do
                 let repo = Repo
                         { repoIdent      = nrpIdent nrp