update pair request alert when button is pressed

This commit is contained in:
Joey Hess 2012-09-09 01:02:44 -04:00
parent f62cc48482
commit 1e41c0d85e
7 changed files with 54 additions and 18 deletions

View file

@ -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).