Fixed bug in footnote order in HTML.

CircleCode pointed out that the following markdown produces
out-of-order footnote markers in HTML:

-8<------------------------

some text^[with a footnote which will be #1]

issue

some other text^[with a footnote which will be #2]
-8<------------------------

This fixes the problem.

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 ||