From 5081b5b9194e02751f207242a2cfa548130af7fc Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 13 Jun 2009 19:27:41 +0000 Subject: [PATCH] web: be better at opening the web ui on windows, hopefully --- Commands/Web.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Commands/Web.hs b/Commands/Web.hs index 16eff25d0..de6ab8d5e 100644 --- a/Commands/Web.hs +++ b/Commands/Web.hs @@ -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