web: be better at opening the web ui on windows, hopefully
This commit is contained in:
parent
ab159d5c9f
commit
5081b5b919
@ -154,7 +154,7 @@ openBrowserOn u = trybrowsers browsers u
|
|||||||
putStrLn $ printf "Please open your browser and visit %s" u
|
putStrLn $ printf "Please open your browser and visit %s" u
|
||||||
return $ ExitFailure 127
|
return $ ExitFailure 127
|
||||||
browsers | os=="darwin" = ["open"]
|
browsers | os=="darwin" = ["open"]
|
||||||
| os=="mingw32" = ["firefox","safari","opera","iexplore"]
|
| os=="mingw32" = ["start","firefox","safari","opera","iexplore"]
|
||||||
| otherwise = ["sensible-browser","firefox"]
|
| otherwise = ["sensible-browser","firefox"]
|
||||||
-- jeffz: write a ffi binding for it using the Win32 package as a basis
|
-- 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
|
-- start by adding System/Win32/Shell.hsc and follow the style of any
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user