xhtml 3000.0.2.2 → 3000.1.0.0
raw patch · 3 files changed
+7/−3 lines, 3 files
Files
- Text/XHtml/Extras.hs +3/−0
- Text/XHtml/Internals.hs +3/−2
- xhtml.cabal +1/−1
Text/XHtml/Extras.hs view
@@ -68,6 +68,9 @@ toHtml hl = anchor ! (href (hotLinkURL hl) : hotLinkAttributes hl) << hotLinkContents hl +instance ADDATTRS HotLink where+ hl ! attr = hl { hotLinkAttributes = hotLinkAttributes hl ++ attr }+ hotlink :: URL -> Html -> HotLink hotlink url h = HotLink { hotLinkURL = url,
Text/XHtml/Internals.hs view
@@ -173,7 +173,7 @@ fixChar '>' = ">" fixChar '&' = "&" fixChar '"' = """- fixChar c | ord c < 0xff = [c]+ fixChar c | ord c < 0x80 = [c] fixChar c = "&#" ++ show (ord c) ++ ";" @@ -181,7 +181,8 @@ -- use stringToHtml or lineToHtml instead, for user strings, -- because they understand special chars, like @'<'@. primHtml :: String -> Html-primHtml x = Html [HtmlString x]+primHtml x | null x = Html []+ | otherwise = Html [HtmlString x]
xhtml.cabal view
@@ -1,5 +1,5 @@ Name: xhtml-Version: 3000.0.2.2+Version: 3000.1.0.0 Copyright: Bjorn Bringert 2004-2006, Andy Gill, and the Oregon Graduate Institute of Science and Technology, 1999-2001 Maintainer: bjorn@bringert.net