summaryrefslogtreecommitdiff
path: root/Assistant/WebApp/DashBoard.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-09 01:02:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-09 01:02:44 -0400
commit1e41c0d85ecc24e8656bff79b2fba46c3663a054 (patch)
tree3fbd6316fed1de8866e0b8419c64ca4b821a9dde /Assistant/WebApp/DashBoard.hs
parentf62cc484826991bfdb5469b8cf0b7b6b7a617e43 (diff)
update pair request alert when button is pressed
Diffstat (limited to 'Assistant/WebApp/DashBoard.hs')
-rw-r--r--Assistant/WebApp/DashBoard.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs
index 992e6ba26..b4e46bd68 100644
--- a/Assistant/WebApp/DashBoard.hs
+++ b/Assistant/WebApp/DashBoard.hs
@@ -116,12 +116,6 @@ postFileBrowserR = void openFileBrowser
getFileBrowserR :: Handler ()
getFileBrowserR = whenM openFileBrowser $ redirectBack
-redirectBack :: Handler ()
-redirectBack = do
- clearUltDest
- setUltDestReferer
- redirectUltDest HomeR
-
{- Opens the system file browser on the repo, or, as a fallback,
- goes to a file:// url. Returns True if it's ok to redirect away
- from the page (ie, the system file browser was opened).