From bef124c98c3f2e9f9a5b1bb23c8bd8b2249a9de6 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 25 Oct 2019 23:01:29 -0700
Subject: Beamer writer: fix regression with hrules separating slides.

---
 src/Text/Pandoc/Writers/LaTeX.hs | 6 +++---
 1 file 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
-- 
cgit v1.2.3