@@ -305,11 +305,9 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
305305 $ if titleSlide
306306 -- title slides have no content of their own
307307 then filter isSec elements
308− else if slide
309− then case splitBy isPause elements of
310− [] -> []
311− (x:xs) -> x ++ concatMap inDiv xs
312− else elements
308+ else case splitBy isPause elements of
309+ [] -> []
310+ (x:xs) -> x ++ concatMap inDiv xs
313311 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
314312 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
315313 ["section" | (slide || writerSectionDivs opts) &&