From 4321e27bfdb97a7df44ff2137b459278ba782d2e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 27 Jan 2012 00:38:47 -0800
Subject: Removed some unused code.

---
 src/Text/Pandoc/Writers/LaTeX.hs | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'src/Text/Pandoc/Writers/LaTeX.hs')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 140ef171d..ce77184e8 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -215,10 +215,7 @@ elementToBeamer slideLevel  (Sec lvl _num _ident tit elts)
                     : tit ++ [RawInline "latex" "}"] )
              : bs ++ [RawBlock "latex" "\\end{block}"]
   | lvl <  slideLevel = do
-      let isSec (Sec _ _ _ _ _) = True
-          isSec (Blk _)         = False
       bs <- concat `fmap` mapM (elementToBeamer slideLevel) elts
-               -- (filter isSec elts)
       return $ (Header lvl tit) : bs
   | otherwise = do -- lvl == slideLevel
       -- note: [fragile] is required or verbatim breaks
-- 
cgit v1.2.3