From 94841b7602f3465cdb7a452989975d08e43fc694 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 5 Dec 2009 04:47:08 +0000
Subject: Added "head" to list of HTML block-level tags.

Resolves Issue #108.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1645 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 changelog                       | 3 +++
 src/Text/Pandoc/Readers/HTML.hs | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/changelog b/changelog
index 6795afb80..c3d46f782 100644
--- a/changelog
+++ b/changelog
@@ -49,6 +49,9 @@ pandoc (1.3)
     RST, but used in Sphinx for code blocks annotated with syntax
     information. Thanks to Luke Plant for the patch.
 
+  * Added "head" to list of block-level HTML tags. Resolves
+    Issue #108.
+
   * Set utf-8 encoding in texinfo headers.
 
   * Properly handle commented-out list items in markdown.
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index aef9e1962..a38450713 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -77,7 +77,7 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
 blockHtmlTags :: [[Char]]
 blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",
                  "dl", "fieldset", "form", "h1", "h2", "h3", "h4",
-                 "h5", "h6", "hr", "html", "isindex", "menu", "noframes",
+                 "h5", "h6", "head", "hr", "html", "isindex", "menu", "noframes",
                  "noscript", "ol", "p", "pre", "table", "ul", "dd",
                  "dt", "frameset", "li", "tbody", "td", "tfoot",
                  "th", "thead", "tr", "script"] ++ eitherBlockOrInline
-- 
cgit v1.2.3