aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-24 00:11:34 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-24 00:11:34 +0000
commit6c8bb8e9a3a13052e1944f1e15c7838df9aa6379 (patch)
tree683cc544ae078b93fe1159b829efb71bb92009bf /src/Text
parentae009fab46bcd7fc92269635abe4d2dc745a49c3 (diff)
downloadpandoc-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')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
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,