From 43494c05578e72c9ec2df67473ddc43f65efbcbe Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 7 Jul 2010 22:55:17 +0300
Subject: [PATCH] Setting ultimate dest with the isAuthorized function

---
 Yesod/Dispatch.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Yesod/Dispatch.hs b/Yesod/Dispatch.hs
index f61fb563..3d08ccd0 100644
--- 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