From 44de5419a5f78b8c2c6abc2173d36fd08674bd2e Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 9 Mar 2010 22:47:28 +0000 Subject: [PATCH] make known browsers more generic --- Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Utils.hs b/Utils.hs index 1b49f6e74..c597fbfb4 100644 --- a/Utils.hs +++ b/Utils.hs @@ -83,8 +83,8 @@ openBrowserOn u = trybrowsers browsers u putStrLn $ printf "Please open your browser and visit %s" u return $ ExitFailure 127 browsers | os=="darwin" = ["open"] - | os=="mingw32" = ["start","firefox","safari","opera","iexplore"] - | otherwise = ["sensible-browser","firefox"] + | os=="mingw32" = ["start"] + | otherwise = ["sensible-browser","gnome-www-browser","firefox"] -- jeffz: write a ffi binding for it using the Win32 package as a basis -- start by adding System/Win32/Shell.hsc and follow the style of any -- other module in that directory for types, headers, error handling and