#!/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

envPassed :: [(Name,Value)] -> HTML
envPassed env = page "Environment Variables" []
                     [ h1 "Environment variables"
                     , dl [ (dt,[prose dd]) | (dt , dd) <- env ]
                     ]

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