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

Setting ultimate dest with the isAuthorized function

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-07 22:55:17 +03:00
parent d6509266f4
commit 43494c0557
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Dispatch.hs
View File

@ -264,7 +264,8 @@ toWaiApp' y segments env = do
case authRoute y of case authRoute y of
Nothing -> Nothing ->
permissionDenied "Authentication required" permissionDenied "Authentication required"
Just url -> Just url -> do
setUltDest'
redirect RedirectTemporary url redirect RedirectTemporary url
Unauthorized s -> permissionDenied s Unauthorized s -> permissionDenied s
case handleSite site render url method of case handleSite site render url method of