diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 94a551b03..491134c6c 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -169,8 +169,8 @@ pandocToLaTeX options (Pandoc meta blocks) = do _ -> (blocks', []) blocks''' <- if beamer then toSlides blocks'' - else return blocks'' - main <- blockListToLaTeX $ makeSections False Nothing blocks''' + else return $ makeSections False Nothing blocks'' + main <- blockListToLaTeX blocks''' biblioTitle <- inlineListToLaTeX lastHeader st <- get titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta @@ -451,7 +451,7 @@ toSlides bs = do opts <- gets stOptions let slideLevel = fromMaybe (getSlideLevel bs) $ writerSlideLevel opts let bs' = prepSlides slideLevel bs - walkM (elementToBeamer slideLevel) (makeSections False Nothing bs') + walkM (elementToBeamer slideLevel) $ makeSections False Nothing bs' -- this creates section slides and marks slides with class "slide","block" elementToBeamer :: PandocMonad m => Int -> Block -> LW m Block |