diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index b3320fa06..0b791687f 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -235,9 +235,9 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do elementToHtml :: WriterOptions -> Element -> State WriterState Html elementToHtml opts (Blk block) = blockToHtml opts block elementToHtml opts (Sec level num id' title' elements) = do - innerContents <- mapM (elementToHtml opts) elements modify $ \st -> st{stSecNum = num} -- update section number header' <- blockToHtml opts (Header level title') + innerContents <- mapM (elementToHtml opts) elements let slides = writerSlideVariant opts `elem` [SlidySlides, S5Slides] let header'' = header' ! [prefixedId opts id' | not (writerStrictMarkdown opts || |