From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 22:05:25 +0000 (-0800)
Subject: use urlify more in Html.lhs
X-Git-Url: http://git.megacz.com/?p=wix.git;a=commitdiff_plain;h=7123f2f1bd0db15a0d0a4c5d3849eae09a069a8c

use urlify more in Html.lhs

darcs-hash:20090128220525-5007d-540d2b934f027352c0ed4e5477ef70ed96acc509.gz
---

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 = "<a href='"++ref++"'>"++icon++body++"</a>"
+link ref body = "<a href='"++(urlify ref)++"'>"++icon++body++"</a>"
  where
+  urlify = toHtml
   icon = if      ".pdf" `isSuffixOf` ref then "<img "++img++" src='"++pdfIconBase64++"'>&nbsp;"
          else if "mailto:" `isPrefixOf` ref then "<img "++img++" src='"++emailIconBase64++"'>&nbsp;"
          else ""