[Fixed XHTML docttype getting put into tag cloud.
prb@mult.ifario.us**20080207223838] {
hunk ./src/Blog/Widgets/TagCloud.hs 11
-                           concatHtml, toHtml, hotlink, theclass, thediv, showHtml )
+                           concatHtml, toHtml, hotlink, theclass, thediv, showHtmlFragment )
hunk ./src/Blog/Widgets/TagCloud.hs 26
-    handle_model_change tcc m = (put_cloud tcc) . showHtml $ tag_cloud (B.all_posts m) C.tags_to_show
+    handle_model_change tcc m = (put_cloud tcc) . showHtmlFragment $ tag_cloud (B.all_posts m) C.tags_to_show
hunk ./src/Blog/Widgets/TagCloud.hs 29
-boot_tag_cloud m = do { let tc = showHtml $ tag_cloud (B.all_posts m) C.tags_to_show
+boot_tag_cloud m = do { let tc = showHtmlFragment $ tag_cloud (B.all_posts m) C.tags_to_show
}