diff options
| -rw-r--r-- | src/Text/Pandoc/Slides.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs index db4aa2509..50c46d17f 100644 --- a/src/Text/Pandoc/Slides.hs +++ b/src/Text/Pandoc/Slides.hs @@ -55,8 +55,8 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader splitHrule [] = [] extractRefsHeader bs = case reverse bs of - (Div (_,["references"],_) (Header n attrs xs : ys) : zs) - -> reverse zs ++ (Header n attrs xs : ys) + (Div ("",["references"],[]) (Header n attrs xs : ys) : zs) + -> reverse zs ++ (Header n attrs xs : [Div ("",["references"],[]) ys]) _ -> bs ensureStartWithH bs@(Header n _ _:_) | n <= slideLevel = bs |