#!/usr/local/bin/runhugs +l
-- Hey, Emacs, this is -*- haskell -*-
-- A simple demo   Erik Meijer (erik@cs.ruu.nl)

--\begin{code}
module Main (main) where

import CGI

helloWorldText :: [(Name,Value)] -> TextPlain
helloWorldText env = TextPlain "Hello World!"

main :: IO ()
main = wrapper (\env -> return (Content{mime = helloWorldText env}))
--\end{code}