diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-27 00:38:47 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-27 00:38:47 -0800 |
commit | 4321e27bfdb97a7df44ff2137b459278ba782d2e (patch) | |
tree | 07044ca9b0f15d8d0b74f5bb8a53dda7751e0e47 /src/Text/Pandoc/Writers/LaTeX.hs | |
parent | ad33a22a22a409c1d17da9f76eee0f6ec6d756cc (diff) |
Removed some unused code.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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 |