webapp: Fix reversion in opening webapp when starting it manually inside a repository.
This commit is contained in:
parent
4422922cf4
commit
bcf1b59c1b
3 changed files with 11 additions and 4 deletions
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue