#!/home/janweb/www/hugs/bin/runhugs +l
-- Hey, Emacs, this is -*- haskell -*-
-- A simple demo Erik Meijer ([email protected])
module Main (main) where
import CGI
helloWorldHTML :: [(Name,Value)] -> HTML
helloWorldHTML env = page "Hello World" [] [h1 "Hello World!"]
main :: IO ()
main = wrapper (\env -> do{ return (Content{mime = helloWorldHTML env,
cookies = [] }) })