From dd27f9d5b999879360a5cc854f2057c41ede086e Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Tue, 7 Jun 2016 05:17:54 +0000 Subject: [PATCH] Replace unnecessary requireAuth with requireAuthId --- src/Vervis/Handler/Repo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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