git.iko.soy/typeable/wai
on master help sign in
Included webkit sample
29d2aaaMichael Snoyman
wai-handler-webkit/sample.hsnew file+10
compare with master
unifiedsplit
@@ -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>"