git.iko.soy/typeable/wai
on warp-tls/3.0.4.1 help sign in
typeable/wai/wai-handler-webkit/sample.hs
10 lines 283 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 _ response = response $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"