Slides: Fixed bug in prepSlides.
commit13b6990139903f25295fe56829a14404f21b1f34
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateTue 24 Jan 2012, 10:50 (15 years ago)
parent98a8ad8
src/Text/Pandoc/Slides.hs+1−1
@@ -53,5 +53,5 @@ prepSlides slideLevel = ensureStartWithH . splitHrule
5353 splitHrule (x : xs) = x : splitHrule xs
5454 splitHrule [] = []
5555 ensureStartWithH bs@(Header n _:_)
56− | n == slideLevel = bs
56+ | n <= slideLevel = bs
5757 ensureStartWithH bs = Header slideLevel [] : bs