diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 7d4e8891f..effede04c 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -228,10 +228,8 @@ blockToHtml options (OrderedList lst) = blockToHtml options HorizontalRule = "<hr />\n" blockToHtml options (Header level lst) = let contents = inlineListToHtml options lst in - let simplify = gsub "<[^>]*>" "" . gsub " " "_" in if ((level > 0) && (level <= 6)) - then "<a id=\"" ++ simplify contents ++ "\"></a>\n" ++ - "<h" ++ (show level) ++ ">" ++ contents ++ + then "<h" ++ (show level) ++ ">" ++ contents ++ "</h" ++ (show level) ++ ">\n" else "<p>" ++ contents ++ "</p>\n" listItemToHtml options list = |