webapp: Fix reversion in opening webapp when starting it manually inside a repository.

This commit is contained in:
Joey Hess 2015-02-09 16:34:42 -04:00
parent 4422922cf4
commit bcf1b59c1b
3 changed files with 11 additions and 4 deletions

View file

@ -115,7 +115,7 @@ getFileBrowserR = whenM openFileBrowser redirectBack
- blocking the response to the browser on it. -}
openFileBrowser :: Handler Bool
openFileBrowser = do
path <- liftAnnex $ fromRepo Git.repoPath
path <- liftIO . absPath =<< liftAnnex (fromRepo Git.repoPath)
#ifdef darwin_HOST_OS
let cmd = "open"
let p = proc cmd [path]