From 8d00331115af94161649e92918b9d75069a66fb0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 7 Dec 2019 14:20:41 -0800
Subject: Fix --toc-depth regression in 2.8.

Closes #5967.
---
 src/Text/Pandoc/Shared.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3