@@ -169,8 +169,8 @@ pandocToLaTeX options (Pandoc meta blocks) = do
169169 _ -> (blocks', [])
170170 blocks''' <- if beamer
171171 then toSlides blocks''
172− else return blocks''
173− main <- blockListToLaTeX $ makeSections False Nothing blocks'''
172+ else return $ makeSections False Nothing blocks''
173+ main <- blockListToLaTeX blocks'''
174174 biblioTitle <- inlineListToLaTeX lastHeader
175175 st <- get
176176 titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta
@@ -451,7 +451,7 @@ toSlides bs = do
451451 opts <- gets stOptions
452452 let slideLevel = fromMaybe (getSlideLevel bs) $ writerSlideLevel opts
453453 let bs' = prepSlides slideLevel bs
454− walkM (elementToBeamer slideLevel) (makeSections False Nothing bs')
454+ walkM (elementToBeamer slideLevel) $ makeSections False Nothing bs'
455455
456456-- this creates section slides and marks slides with class "slide","block"
457457elementToBeamer :: PandocMonad m => Int -> Block -> LW m Block