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