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 = loginHandler
getLoginR = setUltDestReferer >> loginHandler
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 = do

2
yesod-auth.cabal
View File

@ -21,7 +21,7 @@ library
build-depends: base >= 4 && < 4.3
build-depends: authenticate >= 0.9 && < 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
, template-haskell
, pureMD5 >= 1.1 && < 2.2