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

clearUltDest

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-22 06:56:51 +03:00
parent 2e6dbf92f0
commit 64c2a2ebc1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Yesod/Handler.hs
View File

@ -81,6 +81,7 @@ module Yesod.Handler
, setUltDestString , setUltDestString
, setUltDest' , setUltDest'
, redirectUltDest , redirectUltDest
, clearUltDest
-- ** Messages -- ** Messages
, setMessage , setMessage
, setMessageI , setMessageI
@ -492,12 +493,16 @@ setUltDest' = do
redirectUltDest :: Monad mo redirectUltDest :: Monad mo
=> RedirectType => RedirectType
-> Route master -- ^ default destination if nothing in session -> Route master -- ^ default destination if nothing in session
-> GGHandler sub master mo () -> GGHandler sub master mo a
redirectUltDest rt def = do redirectUltDest rt def = do
mdest <- lookupSession ultDestKey mdest <- lookupSession ultDestKey
deleteSession ultDestKey deleteSession ultDestKey
maybe (redirect rt def) (redirectText rt) mdest 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 :: Text
msgKey = "_MSG" msgKey = "_MSG"