[switch to xhtml package
Ganesh Sittampalam **20100406172849
Ignore-this: 726b625b11d4984a4e881f19493195e
] hunk ./CaseList.hs 16
+import Text.XHtml
hunk ./CaseList.hs 54
-docToHTML doc = "" ++ docDate doc ++ "\n"
- ++ concat (row "th" (docHeader doc):map (row "td") (docRecords doc))
- ++ "
\n"
- where row elem items = " \n" ++ concat [" <" ++ elem ++ ">" ++ item ++ "\n" | item <- items] ++ "
\n"
+docToHtml doc = [header $ thetitle $ toHtml (docDate doc)
+ ,body $ table $ concatHtml (row th (docHeader doc):map (row td) (docRecords doc))
+ ]
+ where row elem items = tr $ concatHtml [elem (toHtml item) | item <- items]
hunk ./CaseList.hs 172
- writeFile (stem ++ ".html") (docToHTML doc)
+ writeFile (stem ++ ".html") (showHtml (docToHtml doc))