Included webkit sample
commit29d2aaaf6055691a54615cdbaad3dd98d2c9ad8f
authorMichael Snoyman <michael@snoyman.com>
dateThu 19 Jan 2012, 12:29 (15 years ago)
parentd3a16c8
wai-handler-webkit/sample.hsnew file+10
@@ -0,0 +1,10 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+import Network.Wai
3+import Network.Wai.Handler.Webkit
4+import Network.HTTP.Types
5+
6+main :: IO ()
7+main = run "Sample App" app
8+
9+app :: Application
10+app _ = return $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"