@@ -286,9 +286,8 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
286 then filter isSec elements
286 then filter isSec elements
287 else if slide
287 else if slide
288 then case splitBy isPause elements of
288 then case splitBy isPause elements of
289− [] -> []
289+ [] -> []
291− xs -> concatMap inDiv xs
290+ (x:xs) -> x ++ concatMap inDiv xs
292 else elements
291 else elements
293 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
292 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
294 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
293 let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++