summaryrefslogtreecommitdiff
path: root/Command/WebApp.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/WebApp.hs')
-rw-r--r--Command/WebApp.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs
index a0bd2e7f7..1d97eb304 100644
--- a/Command/WebApp.hs
+++ b/Command/WebApp.hs
@@ -137,9 +137,10 @@ openBrowser cmd htmlshim = go $ maybe runBrowser runCustomBrowser cmd
go a = do
putStrLn ""
putStrLn $ "Launching web browser on " ++ url
- unlessM (a url) $
+ env <- cleanEnvironment
+ unlessM (a url env) $
error $ "failed to start web browser"
- runCustomBrowser c u = boolSystem c [Param u]
+ runCustomBrowser c u = boolSystemEnv c [Param u]
{- web.browser is a generic git config setting for a web browser program -}
webBrowser :: Git.Repo -> Maybe FilePath