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