git.iko.soy/typeable/wai
on wai-extra/3.0.4.4 help sign in
typeable/wai/wai-handler-webkit/sample.hs
10 lines 272 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2import Network.Wai
3import Network.Wai.Handler.Webkit
4import Network.HTTP.Types
6main :: IO ()
7main = run "Sample App" app
9app :: Application
10app _ = return $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"