sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:34:54 +09:00
Code Issues Activity

Replace unnecessary requireAuth with requireAuthId

Browse source
This commit is contained in:
fr33domlover 2016-06-07 05:17:54 +00:00
parent d6967f52d9
commit dd27f9d5b9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Handler/Repo.hs
View file

@ -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