@@ -308,11 +308,9 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
308308 $ if titleSlide
309309 -- title slides have no content of their own
310310 then filter isSec elements
311− else if slide
312− then case splitBy isPause elements of
313− [] -> []
314− (x:xs) -> x ++ concatMap inDiv xs
315− else elements
311+ else case splitBy isPause elements of
312+ [] -> []
313+ (x:xs) -> x ++ concatMap inDiv xs
316314 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
317315 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
318316 ["section" | (slide || writerSectionDivs opts) &&