From dd27f9d5b999879360a5cc854f2057c41ede086e Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
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