@@ -14,6 +14,9 @@ import Control.Monad.IO.Class (liftIO)
1414import qualified Data.ByteString as S
1515import Data.Enumerator (($$), enumList)
1616import Blaze.ByteString.Builder (fromByteString)
17+#if !WINDOWS
18+import System.Cmd (rawSystem)
19+#endif
1720
1821ping :: IORef Bool -> Middleware
1922ping var app req
@@ -35,6 +38,8 @@ ping var app req
3538foreign import ccall "launch"
3639 launch :: IO ()
3740#else
41+launch :: IO ()
42+launch = rawSystem "xdg-open" ["http://localhost:4587/"] >> return ()
3843#endif
3944
4045run :: Application -> IO ()