@@ -641,7 +641,7 @@ writeOpenXML opts (Pandoc meta blocks) = do
641 doc' <- (setFirstPara >> blocksToOpenXML opts blocks')
641 doc' <- (setFirstPara >> blocksToOpenXML opts blocks')
642 notes' <- reverse `fmap` gets stFootnotes
642 notes' <- reverse `fmap` gets stFootnotes
643 toc <- makeTOC opts
643 toc <- makeTOC opts
644− let meta' = title ++ subtitle ++ authors ++ date ++ toc ++ abstract
644+ let meta' = title ++ subtitle ++ authors ++ date ++ abstract ++ toc
645 return (meta' ++ doc', notes')
645 return (meta' ++ doc', notes')
647-- | Convert a list of Pandoc blocks to OpenXML.
647-- | Convert a list of Pandoc blocks to OpenXML.