@@ -229,7 +229,7 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do
229-- | Convert an Element to Html.
229-- | Convert an Element to Html.
230elementToHtml :: WriterOptions -> Element -> State WriterState Html
230elementToHtml :: WriterOptions -> Element -> State WriterState Html
231elementToHtml opts (Blk HorizontalRule) | writerSlideVariant opts /= NoSlides =
231elementToHtml opts (Blk HorizontalRule) | writerSlideVariant opts /= NoSlides =
232− return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\""
232+ return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\">"
233elementToHtml opts (Blk block) = blockToHtml opts block
233elementToHtml opts (Blk block) = blockToHtml opts block
234elementToHtml opts (Sec level num id' title' elements) = do
234elementToHtml opts (Sec level num id' title' elements) = do
235 modify $ \st -> st{stSecNum = num} -- update section number
235 modify $ \st -> st{stSecNum = num} -- update section number