@@ -666,13 +666,15 @@ blockToHtml opts (Div (ident, "section":dclasses, dkvs)
666666 let inDiv zs = RawBlock (Format "html") ("<div class=\""
667667 <> fragmentClass <> "\">") :
668668 (zs ++ [RawBlock (Format "html") "</div>"])
669+ let breakOnPauses zs = case splitBy isPause zs of
670+ [] -> []
671+ y:ys -> y ++ concatMap inDiv ys
669672 let (titleBlocks, innerSecs) =
670673 if titleSlide
671674 -- title slides have no content of their own
672− then break isSec xs
673− else case splitBy isPause xs of
674− [] -> ([],[])
675− (z:zs) -> ([],z ++ concatMap inDiv zs)
675+ then let (as, bs) = break isSec xs
676+ in (breakOnPauses as, bs)
677+ else ([], breakOnPauses xs)
676678 let secttag = if html5
677679 then H5.section
678680 else H.div