diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-24 00:11:34 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-24 00:11:34 +0000 |
commit | 6c8bb8e9a3a13052e1944f1e15c7838df9aa6379 (patch) | |
tree | 683cc544ae078b93fe1159b829efb71bb92009bf /src/Text/Pandoc/Writers/HTML.hs | |
parent | ae009fab46bcd7fc92269635abe4d2dc745a49c3 (diff) | |
download | pandoc-6c8bb8e9a3a13052e1944f1e15c7838df9aa6379.tar.gz |
Fixed bug in TOC generation in HTML writer (regression,
introduced by the revision in the WriterState type).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@793 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-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, |