diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-12-07 14:20:41 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-12-07 15:15:55 -0800 |
commit | 8d00331115af94161649e92918b9d75069a66fb0 (patch) | |
tree | 09bc5cc52d2108309e6ff08b5b57ee2c51f4c239 | |
parent | 0b54d6282bb89a71433043857f4983668f9a4beb (diff) | |
download | pandoc-8d00331115af94161649e92918b9d75069a66fb0.tar.gz |
Fix --toc-depth regression in 2.8.
Closes #5967.
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 0e195d3da..809a16652 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -573,13 +573,13 @@ makeSections numbering mbBaseLevel bs = sectionContents' <- go sectionContents S.modify $ \(_, ln) -> (mbLevel, ln) rest' <- go rest - let divattr = (ident, ["section"], []) - let attr = ("",classes, - -- don't touch number if already present - case lookup "number" kvs of - Nothing | numbering -> + let kvs' = -- don't touch number if already present + case lookup "number" kvs of + Nothing | numbering -> ("number", T.intercalate "." (map tshow newnum)) : kvs - _ -> kvs) + _ -> kvs + let divattr = (ident, "section":classes, kvs') + let attr = ("",classes,kvs') return $ Div divattr (Header level' attr title' : sectionContents') : rest' go (Div (dident,dclasses,dkvs) |