X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FHtml.lhs;fp=src%2FHtml.lhs;h=632dcfea87ff06c97d9a1b7601ebc9b7975175aa;hp=a6cfeea6f6ef33172f00ea422d5f59367093ca4c;hb=173630fcedd7f473b0b7d28592b53288c1eff418;hpb=64288bf11f7ad3e21e0ff8180ef3447ebf3fb9cb

diff --git a/src/Html.lhs b/src/Html.lhs
index a6cfeea..632dcfe 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -195,6 +195,7 @@ instance ToHtml Text where
  toHtml (Quotes x)                = "“"++(toHtml x)++"”"
  toHtml (Verbatim x)              = pre x
  toHtml (Link t ref)              = link (show ref) (toHtml t)
+ toHtml (Command "comment" y)     = ""
  toHtml (Command "url" y)         = "<tt>"++(link (toHtml y) (toHtml y))++"</tt>"
  toHtml (Command "WiX" y)         = "W<span style='vertical-align:-20%'>I</span>X"
  toHtml (Command "TeX" y)         = "T<span style='vertical-align:-20%'>E</span>X"