@@ -215,10 +215,7 @@ elementToBeamer slideLevel (Sec lvl _num _ident tit elts)
215215 : tit ++ [RawInline "latex" "}"] )
216216 : bs ++ [RawBlock "latex" "\\end{block}"]
217217 | lvl < slideLevel = do
218− let isSec (Sec _ _ _ _ _) = True
219− isSec (Blk _) = False
220218 bs <- concat `fmap` mapM (elementToBeamer slideLevel) elts
221− -- (filter isSec elts)
222219 return $ (Header lvl tit) : bs
223220 | otherwise = do -- lvl == slideLevel
224221 -- note: [fragile] is required or verbatim breaks