X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=src%2FHtml.lhs;h=a3ff54f19c3f0780bf5debf114110aa991bc5a5e;hb=ab26ff591fbbaf202c3d95af6c50df747513d8ea;hp=1989e64e03cc9bd225e75dfffc4a6a724eeeae31;hpb=757259623cca7cd1114e52a12bc01fe424361255;p=wix.git
diff --git a/src/Html.lhs b/src/Html.lhs
index 1989e64..a3ff54f 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -183,8 +183,9 @@ instance ToHtml Paragraph where
toHtml (P t) = stag "p" $ toHtml t
-link ref body = ""++icon++body++""
+link ref body = ""++icon++body++""
where
+ urlify = toHtml
icon = if ".pdf" `isSuffixOf` ref then " "
else if "mailto:" `isPrefixOf` ref then "
"
else ""
@@ -274,7 +275,7 @@ instance ToHtml Text where
toHtml (GlyphText TradeMark) = "™"
toHtml (GlyphText ServiceMark) = "™"
toHtml (GlyphText Emdash) = "—"
- toHtml (GlyphText Ellipsis) = "
"
+ toHtml (GlyphText Ellipsis) = "
" -- &cdots;?
toHtml (GlyphText Cent) = "½"
toHtml (GlyphText Daggar) = "†"
toHtml (GlyphText DoubleDaggar) = "‡"
@@ -313,7 +314,7 @@ htmlEscapeChar '\'' = "'"
htmlEscapeChar '\"' = """
htmlEscapeChar c = [c]
-pre x = "\n