aboutsummaryrefslogtreecommitdiff
path: root/Utility/WebApp.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/WebApp.hs')
-rw-r--r--Utility/WebApp.hs4
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"