From 93334118aa3e156a0c47e76014fabc36b0752ebc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 18 Mar 2021 18:23:30 -0400
Subject: html: Add support for comments.

Thanks to Riku Viitanen for the patch.
---
 haunt/html.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/haunt/html.scm b/haunt/html.scm
index 5891cd0..319cc3b 100644
--- a/haunt/html.scm
+++ b/haunt/html.scm
@@ -112,6 +112,8 @@ list ATTRS and the child nodes in BODY."
     (() *unspecified*)
     (('doctype type)
      (doctype->html type port))
+    (('!-- comment)
+     (display (string-append "<!--" comment "-->") port))
     (((? symbol? tag) ('@ attrs ...) body ...)
      (element->html tag attrs body port))
     (((? symbol? tag) body ...)
-- 
cgit v1.2.3