wai-handler-webkit/sample.hs · typeable/wai

git.iko.soy/typeable/wai

on warp/3.2.8 help sign in

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>"