@@ -14,6 +14,9 @@ import Control.Monad.IO.Class (liftIO)
14import qualified Data.ByteString as S
14import qualified Data.ByteString as S
15import Data.Enumerator (($$), enumList)
15import Data.Enumerator (($$), enumList)
16import Blaze.ByteString.Builder (fromByteString)
16import Blaze.ByteString.Builder (fromByteString)
18+import System.Cmd (rawSystem)
18ping :: IORef Bool -> Middleware
21ping :: IORef Bool -> Middleware
19ping var app req
22ping var app req
@@ -35,6 +38,8 @@ ping var app req
35foreign import ccall "launch"
38foreign import ccall "launch"
36 launch :: IO ()
39 launch :: IO ()
42+launch = rawSystem "xdg-open" ["http://localhost:4587/"] >> return ()
40run :: Application -> IO ()
45run :: Application -> IO ()