[happs-hsp: minor cleanup
jeremy@n-heptane.com**20080901052618] {
hunk ./examples/happs-hsp/Main.hs 43
+instance ToMessage (XMLGenT Identity XML) where
+    toContentType _ = P.pack "text/html"
+    toMessage xml   = toMessage (html4Strict, evalIdentity xml) -- L.fromString (renderAsHTML xml)
+
hunk ./examples/happs-hsp/Main.hs 80
-                         <p><a href="/date">Data Widget</a></p>
+                         <p><a href="/date">Date Widget</a></p>
hunk ./examples/happs-hsp/Main.hs 89
-    [ method GET $ ok (toResponse (html4Strict, evalIdentity (page (createForm [] prefix action [] frm))))
+    [ method GET $ ok (toResponse (page (createForm [] prefix action [] frm)))
hunk ./examples/happs-hsp/Main.hs 97
-                          ok (toResponse (evalIdentity (page (createForm env prefix action faults frm))))
+                          ok (toResponse (page (createForm env prefix action faults frm)))
}