web: be better at opening the web ui on windows, hopefully

This commit is contained in:
Simon Michael 2009-06-13 19:27:41 +00:00
parent ab159d5c9f
commit 5081b5b919

View File

@ -154,7 +154,7 @@ openBrowserOn u = trybrowsers browsers u
putStrLn $ printf "Please open your browser and visit %s" u
return $ ExitFailure 127
browsers | os=="darwin" = ["open"]
| os=="mingw32" = ["firefox","safari","opera","iexplore"]
| os=="mingw32" = ["start","firefox","safari","opera","iexplore"]
| otherwise = ["sensible-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