[Added XHtml utilities. Reimplment error page using XHtml.
bjorn@bringert.net**20060423161907] {
hunk ./Hawl/Util/CGI.hs 3
+import Hawl.Util.XHtml
+
hunk ./Hawl/Util/CGI.hs 7
-import Network.NewCGI
+import Network.NewCGI hiding (Html)
+import Text.XHtml
hunk ./Hawl/Util/CGI.hs 15
- output $ unlines ["",
- "500 Internal Server Error",
- "",
- "Internal Server Error
",
- "" ++ show e ++ "
",
- ""]
+ let page = errorPage "500 Internal Server Error" [show e]
+ output $ renderHtml page
hunk ./Hawl/Util/CGI.hs 18
+errorPage :: String -> [String] -> Html
+errorPage tit ps =
+ mkHtml (thetitle << tit) ((h1 << tit) : map (paragraph <<) ps)
hunk ./hawl.cabal 28
+ Hawl.Util.XHtml,
}