typeable/wai
1
0
Fork 0
mirror of https://github.com/typeable/wai.git synced 2025-01-07 14:51:40 +03:00
Code Issues Projects Releases Wiki Activity

Included webkit sample

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-19 12:29:58 +02:00
parent d3a16c8f65
commit 29d2aaaf60
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
wai-handler-webkit/sample.hs Normal file
View File

@ -0,0 +1,10 @@
{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.Wai.Handler.Webkit
import Network.HTTP.Types
main :: IO ()
main = run "Sample App" app
app :: Application
app _ = return $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"