git.iko.soy/typeable/wai
on ff3e633 help sign in
typeable/wai/Hack/Handler/Webkit.hs
11 lines 265 B history raw
1module Hack.Handler.Webkit (run) where
3import Webkit (startBrowser)
4import Hack (Application)
5import qualified Hack.Handler.SimpleServer as S
6import Control.Concurrent (forkIO)
8run :: Application -> IO ()
9run app = do
10 forkIO $ S.run 3000 app
11 startBrowser