mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/DashBoard.hs
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]