aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2021-05-15 16:36:13 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2021-05-15 16:46:02 +0200
commit0794862aacdb5d28616dadc3d681a63c36251212 (patch)
treead652f34f1da9855ba1f5c470ff6eb5a85db884a /src/Text/Pandoc
parent46baf6659dad59d1d633894b4db886a2e1311d43 (diff)
downloadpandoc-0794862aacdb5d28616dadc3d681a63c36251212.tar.gz
HTML writer: parse `<header>` as a Div
HTML5 `<header>` elements are treated like `<div>` elements.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index b305de7b5..0a9e4addf 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -205,6 +205,7 @@ block = ((do
| otherwise
-> pDiv
"section" -> pDiv
+ "header" -> pDiv
"main" -> pDiv
"figure" -> pFigure
"iframe" -> pIframe
@@ -404,6 +405,7 @@ pLineBlock = try $ do
isDivLike :: Text -> Bool
isDivLike "div" = True
isDivLike "section" = True
+isDivLike "header" = True
isDivLike "main" = True
isDivLike _ = False