#! /usr/bin/runhugs

-- $Id: Env.hs,v 1.1 2001/05/23 08:01:14 uwe Exp $

import CGI

--
-- Eine Seite mit Umgebungsvariablen vird erstellt. Für jeden Eintrag in der
-- Liste der Name-Wert Paare wird eine Definition erstellt.
--
seite :: [(Name, Value)] -> HTML
seite env = page "Umgebungsvariablen" []
	[
		h1 "Umgebungsvariablen",
		dl (map (\(dt,dd) -> (dt, [prose dd])) env)
	]
	
main :: IO ()
main = wrapper(\env -> do
	return (Content(seite env)))