sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:24:51 +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.Directory
import System.Hourglass (dateCurrent) import System.Hourglass (dateCurrent)
import Text.Blaze.Html (Html) import Text.Blaze.Html (Html)
import Yesod.Auth (requireAuth) import Yesod.Auth (requireAuthId)
import Yesod.Core (defaultLayout, setMessage) import Yesod.Core (defaultLayout, setMessage)
import Yesod.Core.Handler (lookupPostParam, redirect, notFound) import Yesod.Core.Handler (lookupPostParam, redirect, notFound)
import Yesod.Form.Functions (runFormPost) import Yesod.Form.Functions (runFormPost)
@ -125,7 +125,7 @@ postReposR user = do
case nrpVcs nrp of case nrpVcs nrp of
VCSDarcs -> D.createRepo parent repoName VCSDarcs -> D.createRepo parent repoName
VCSGit -> G.createRepo parent repoName VCSGit -> G.createRepo parent repoName
Entity pid person <- requireAuth pid <- requireAuthId
runDB $ do runDB $ do
let repo = Repo let repo = Repo
{ repoIdent = nrpIdent nrp { repoIdent = nrpIdent nrp