diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-10-25 23:01:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-10-25 23:01:29 -0700 |
| commit | bef124c98c3f2e9f9a5b1bb23c8bd8b2249a9de6 (patch) | |
| tree | 58f8adb014bf1322b2aa704825df5a916c36cca5 | |
| parent | 45479114e88a351fc63bb8eff142bb10cfd2c661 (diff) | |
| download | pandoc-bef124c98c3f2e9f9a5b1bb23c8bd8b2249a9de6.tar.gz | |
Beamer writer: fix regression with hrules separating slides.
| -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 |