@@ -100,7 +100,7 @@ tableOfContents opts headers ids =
100 contentsTree = hierarchicalize headers
100 contentsTree = hierarchicalize headers
101 contents = evalState (mapM (elementToListItem opts') contentsTree)
101 contents = evalState (mapM (elementToListItem opts') contentsTree)
103− in unordList ! [identifier "toc"] $ contents
103+ in thediv ! [identifier "toc"] $ unordList contents
105-- | Converts an Element to a list item for a table of contents,
105-- | Converts an Element to a list item for a table of contents,
106-- retrieving the appropriate identifier from state.
106-- retrieving the appropriate identifier from state.