From 173630fcedd7f473b0b7d28592b53288c1eff418 Mon Sep 17 00:00:00 2001
From: adam <adam@megacz.com>
Date: Thu, 10 Apr 2008 09:35:50 -0700
Subject: [PATCH] add support for simple comments

darcs-hash:20080410163550-5007d-7605701b2b924796387e0f0c67a484b326764c94.gz
---
 src/Html.lhs |    1 +
 1 file changed, 1 insertion(+)

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)                = "&#8220;"++(toHtml x)++"&#8221;"
  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"
-- 
1.7.10.4