X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FHtml.lhs;h=a3ff54f19c3f0780bf5debf114110aa991bc5a5e;hp=5784cb5a71b0d36f6561e005d91f3d431aa9c73f;hb=7123f2f1bd0db15a0d0a4c5d3849eae09a069a8c;hpb=6df648a7ec73e4acdfa9bfd77990e0a4b0fe51fd
diff --git a/src/Html.lhs b/src/Html.lhs
index 5784cb5..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 ""