Setting ultimate dest with the isAuthorized function

2010-07-07 22:55:17 +03:00 · 2010-07-07 22:55:17 +03:00 · 43494c0557
commit 43494c0557
parent d6509266f4
1 changed files with 2 additions and 1 deletions
--- a/Yesod/Dispatch.hs
+++ b/Yesod/Dispatch.hs
@ -264,7 +264,8 @@ toWaiApp' y segments env = do
                        case authRoute y of
                            Nothing ->
                                permissionDenied "Authentication required"
-                            Just url ->
+                            Just url -> do
+                                setUltDest'
                                redirect RedirectTemporary url
                    Unauthorized s -> permissionDenied s
                case handleSite site render url method of