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 eaed5ab90..4637ffde4 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -99,7 +99,7 @@ tableOfContents opts headers ids = let opts' = opts { writerIgnoreNotes = True } contentsTree = hierarchicalize headers contents = evalState (mapM (elementToListItem opts') contentsTree) - (WriterState {stNotes= [], stIds = [], stHead = []}) + (WriterState {stNotes= [], stIds = ids, stHead = []}) in thediv ! [identifier "toc"] $ unordList contents -- | Converts an Element to a list item for a table of contents, |