@@ -237,15 +237,14 @@ elementToHtml opts (Sec level num id' title' elements) = do
237237 let stuff = header'' : innerContents
238238 let slide = writerSlideVariant opts /= NoSlides && level == 1
239239 let titleSlide = slide && null elements
240− let classes = [theclass "titleslide" | titleSlide] ++
241− [theclass "slide" | slide]
240+ let attrs = [prefixedId opts id' | writerSectionDivs opts] ++
241+ [theclass "titleslide" | titleSlide] ++
242+ [theclass "slide" | slide]
242243 let inNl x = nl opts : intersperse (nl opts) x ++ [nl opts]
243244 return $ if writerSectionDivs opts || slide
244245 then if writerHtml5 opts
245− then tag "section" ! (prefixedId opts id' : classes)
246− << inNl stuff
247− else thediv ! (prefixedId opts id' : classes)
248− << inNl stuff
246+ then tag "section" ! attrs << inNl stuff
247+ else thediv ! attrs << inNl stuff
249248 else toHtmlFromList $ intersperse (nl opts) stuff
250249
251250-- | Convert list of Note blocks to a footnote <div>.