aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Slides.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Slides.hs')
-rw-r--r--src/Text/Pandoc/Slides.hs4
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