@@ -573,13 +573,13 @@ makeSections numbering mbBaseLevel bs =
573573 sectionContents' <- go sectionContents
574574 S.modify $ \(_, ln) -> (mbLevel, ln)
575575 rest' <- go rest
576− let divattr = (ident, ["section"], [])
577− let attr = ("",classes,
578− -- don't touch number if already present
579− case lookup "number" kvs of
580− Nothing | numbering ->
576+ let kvs' = -- don't touch number if already present
577+ case lookup "number" kvs of
578+ Nothing | numbering ->
581579 ("number", T.intercalate "." (map tshow newnum)) : kvs
582− _ -> kvs)
580+ _ -> kvs
581+ let divattr = (ident, "section":classes, kvs')
582+ let attr = ("",classes,kvs')
583583 return $
584584 Div divattr (Header level' attr title' : sectionContents') : rest'
585585 go (Div (dident,dclasses,dkvs)