aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-24 10:50:56 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-24 10:50:56 -0800
commit13b6990139903f25295fe56829a14404f21b1f34 (patch)
tree16e62f80f686a4bc8d92d876dc0f5b8f4cf8de4d /src/Text
parent98a8ad8f203c95f17297561c3679e8eee7c54c10 (diff)
downloadpandoc-13b6990139903f25295fe56829a14404f21b1f34.tar.gz
Slides: Fixed bug in prepSlides.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Slides.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs
index ba68bbd67..1df556d38 100644
--- a/src/Text/Pandoc/Slides.hs
+++ b/src/Text/Pandoc/Slides.hs
@@ -53,5 +53,5 @@ prepSlides slideLevel = ensureStartWithH . splitHrule
splitHrule (x : xs) = x : splitHrule xs
splitHrule [] = []
ensureStartWithH bs@(Header n _:_)
- | n == slideLevel = bs
+ | n <= slideLevel = bs
ensureStartWithH bs = Header slideLevel [] : bs