diff options
Diffstat (limited to 'src/Text/Pandoc/Slides.hs')
-rw-r--r-- | src/Text/Pandoc/Slides.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs index 2f7d83527..e30bd2640 100644 --- a/src/Text/Pandoc/Slides.hs +++ b/src/Text/Pandoc/Slides.hs @@ -57,8 +57,9 @@ 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 : [Div ("",["references"],[]) ys]) + (Div ("refs",classes,kvs) (Header n attrs xs : ys) : zs) + -> reverse zs ++ [Header n attrs xs, + Div ("refs",classes,kvs) ys] _ -> bs ensureStartWithH bs@(Header n _ _:_) | n <= slideLevel = bs |