diff options
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" |