#!/usr/local/bin/runhugs +l

module Main (main) where

import CGI

helloWorldHTML :: [(Name,Value)] -> HTML
helloWorldHTML env = page "Hello World in Haskell" [] [h1 "Hello World!"]

main :: IO ()
main = wrapper (\env -> do{ return (Content{mime = helloWorldHTML env}) })