From 7123f2f1bd0db15a0d0a4c5d3849eae09a069a8c Mon Sep 17 00:00:00 2001
From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 14:05:25 -0800
Subject: [PATCH] use urlify more in Html.lhs

darcs-hash:20090128220525-5007d-540d2b934f027352c0ed4e5477ef70ed96acc509.gz
---
 src/Html.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 ""
-- 
1.7.10.4