From c4c336460bb99bad2cca8c693452978d6ad8a5dd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 6 Jan 2011 21:03:08 -0800
Subject: RST writer: blank line after literate Haskell code block.

---
 src/Text/Pandoc/Writers/RST.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 908549041..e36df0602 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -150,7 +150,7 @@ blockToRST (Para inlines) = do
   return $ contents <> blankline
 blockToRST (RawHtml str) =
   return $ blankline <> ".. raw:: html" $+$
-           (nest 3 $ text str) <> blankline
+           (nest 3 $ text str) $$ blankline
 blockToRST HorizontalRule =
   return $ blankline $$ "--------------" $$ blankline
 blockToRST (Header level inlines) = do
@@ -163,12 +163,12 @@ blockToRST (CodeBlock (_,classes,_) str) = do
   let tabstop = writerTabStop opts
   if "haskell" `elem` classes && "literate" `elem` classes &&
                   writerLiterateHaskell opts
-     then return $ prefixed "> " $ text str $$ blankline
+     then return $ prefixed "> " (text str) $$ blankline
      else return $ "::" $+$ nest tabstop (text str) $$ blankline
 blockToRST (BlockQuote blocks) = do
   tabstop <- get >>= (return . writerTabStop . stOptions)
   contents <- blockListToRST blocks 
-  return $ nest tabstop contents <> blankline
+  return $ (nest tabstop contents) <> blankline
 blockToRST (Table caption _ widths headers rows) =  do
   caption' <- inlineListToRST caption
   let caption'' = if null caption
-- 
cgit v1.2.3