haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

setUltDestReferer

Browse Source
This commit is contained in:
Michael Snoyman 2011-06-10 09:07:06 +03:00
parent bbdca8cb5d
commit e0324500c6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Auth.hs
View File

@ -149,10 +149,10 @@ $nothing
] ]
getLoginR :: YesodAuth m => GHandler Auth m RepHtml getLoginR :: YesodAuth m => GHandler Auth m RepHtml
getLoginR = loginHandler getLoginR = setUltDestReferer >> loginHandler
getLogoutR :: YesodAuth m => GHandler Auth m () getLogoutR :: YesodAuth m => GHandler Auth m ()
getLogoutR = postLogoutR -- FIXME redirect to post getLogoutR = setUltDestReferer >> postLogoutR -- FIXME redirect to post
postLogoutR :: YesodAuth m => GHandler Auth m () postLogoutR :: YesodAuth m => GHandler Auth m ()
postLogoutR = do postLogoutR = do

2
yesod-auth.cabal
View File

@ -21,7 +21,7 @@ library
build-depends: base >= 4 && < 4.3 build-depends: base >= 4 && < 4.3
build-depends: authenticate >= 0.9 && < 0.10 build-depends: authenticate >= 0.9 && < 0.10
, bytestring >= 0.9.1.4 && < 0.10 , bytestring >= 0.9.1.4 && < 0.10
, yesod-core >= 0.8.1 && < 0.9 , yesod-core >= 0.8.3 && < 0.9
, wai >= 0.4 && < 0.5 , wai >= 0.4 && < 0.5
, template-haskell , template-haskell
, pureMD5 >= 1.1 && < 2.2 , pureMD5 >= 1.1 && < 2.2