From ea0a09aef1632cd6721ede8b8e3e908660bc4619 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 6 Jul 2011 03:03:05 -0700
Subject: Fixed bug in slidy writer: unclosed div tag.

---
 src/Text/Pandoc/Writers/HTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 6144e43db..93d90bea0 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -229,7 +229,7 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do
 -- | Convert an Element to Html.
 elementToHtml :: WriterOptions -> Element -> State WriterState Html
 elementToHtml opts (Blk HorizontalRule) | writerSlideVariant opts /= NoSlides =
-  return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\""
+  return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\">"
 elementToHtml opts (Blk block) = blockToHtml opts block
 elementToHtml opts (Sec level num id' title' elements) = do
   modify $ \st -> st{stSecNum = num}  -- update section number
-- 
cgit v1.2.3