From 64c2a2ebc136e0044855b9fdae581a0f29edb32d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 22 May 2011 06:56:51 +0300
Subject: [PATCH] clearUltDest

---
 Yesod/Handler.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs
index 12ab83a2..da0010c9 100644
--- a/Yesod/Handler.hs
+++ b/Yesod/Handler.hs
@@ -81,6 +81,7 @@ module Yesod.Handler
     , setUltDestString
     , setUltDest'
     , redirectUltDest
+    , clearUltDest
       -- ** Messages
     , setMessage
     , setMessageI
@@ -492,12 +493,16 @@ setUltDest' = do
 redirectUltDest :: Monad mo
                 => RedirectType
                 -> Route master -- ^ default destination if nothing in session
-                -> GGHandler sub master mo ()
+                -> GGHandler sub master mo a
 redirectUltDest rt def = do
     mdest <- lookupSession ultDestKey
     deleteSession ultDestKey
     maybe (redirect rt def) (redirectText rt) mdest
 
+-- | Remove a previously set ultimate destination. See 'setUltDest'.
+clearUltDest :: Monad mo => GGHandler sub master mo ()
+clearUltDest = deleteSession ultDestKey
+
 msgKey :: Text
 msgKey = "_MSG"