diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-09 01:02:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-09 01:02:44 -0400 |
| commit | 1e41c0d85ecc24e8656bff79b2fba46c3663a054 (patch) | |
| tree | 3fbd6316fed1de8866e0b8419c64ca4b821a9dde /Assistant/WebApp.hs | |
| parent | f62cc484826991bfdb5469b8cf0b7b6b7a617e43 (diff) | |
update pair request alert when button is pressed
Diffstat (limited to 'Assistant/WebApp.hs')
| -rw-r--r-- | Assistant/WebApp.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Assistant/WebApp.hs b/Assistant/WebApp.hs index 51972a98c..64dcd48e3 100644 --- a/Assistant/WebApp.hs +++ b/Assistant/WebApp.hs @@ -132,3 +132,10 @@ renderUrl :: UrlRenderer -> Route WebApp -> [(Text, Text)] -> IO Text renderUrl urlrenderer route params = do r <- readMVar urlrenderer return $ r route params + +{- Redirects back to the referring page, or if there's none, HomeR -} +redirectBack :: Handler () +redirectBack = do + clearUltDest + setUltDestReferer + redirectUltDest HomeR |