diff options
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 |