@@ -169,8 +169,8 @@ pandocToLaTeX options (Pandoc meta blocks) = do
169 _ -> (blocks', [])
169 _ -> (blocks', [])
170 blocks''' <- if beamer
170 blocks''' <- if beamer
171 then toSlides blocks''
171 then toSlides blocks''
172− else return blocks''
172+ else return $ makeSections False Nothing blocks''
173− main <- blockListToLaTeX $ makeSections False Nothing blocks'''
173+ main <- blockListToLaTeX blocks'''
174 biblioTitle <- inlineListToLaTeX lastHeader
174 biblioTitle <- inlineListToLaTeX lastHeader
175 st <- get
175 st <- get
176 titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta
176 titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta
@@ -451,7 +451,7 @@ toSlides bs = do
451 opts <- gets stOptions
451 opts <- gets stOptions
452 let slideLevel = fromMaybe (getSlideLevel bs) $ writerSlideLevel opts
452 let slideLevel = fromMaybe (getSlideLevel bs) $ writerSlideLevel opts
453 let bs' = prepSlides slideLevel bs
453 let bs' = prepSlides slideLevel bs
454− walkM (elementToBeamer slideLevel) (makeSections False Nothing bs')
454+ walkM (elementToBeamer slideLevel) $ makeSections False Nothing bs'
456-- this creates section slides and marks slides with class "slide","block"
456-- this creates section slides and marks slides with class "slide","block"
457elementToBeamer :: PandocMonad m => Int -> Block -> LW m Block
457elementToBeamer :: PandocMonad m => Int -> Block -> LW m Block