diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-27 17:05:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-27 17:05:29 -0400 |
| commit | af2e65f1c25b72643dfec6ae2a9284ebeeb70ec5 (patch) | |
| tree | 0246a2c6e0ef184c310920a4cc5e9e62a56ac0ab /Utility/WebApp.hs | |
| parent | ece8d76d67e2c22e33963f52a341f4b3a59d3ec4 (diff) | |
The standalone builds now unset their special path and library path variables before running the system web browser.
Should fix a crash reported on OSX.
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index cbc4ce906..0c3f6040d 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -41,8 +41,8 @@ localhost = "localhost" {- Runs a web browser on a given url. - - Note: The url *will* be visible to an attacker. -} -runBrowser :: String -> IO Bool -runBrowser url = boolSystem cmd [Param url] +runBrowser :: String -> (Maybe [(String, String)]) -> IO Bool +runBrowser url env = boolSystemEnv cmd [Param url] env where #ifdef darwin_HOST_OS cmd = "open" |