diff options
| -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) |