aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2014-01-02 21:10:14 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2014-01-02 21:10:14 -0800
commite7e76dbdd8b07b1fd80bda1599d58b7fbc7cf4bd (patch)
tree3c3f52837228c34e43b4527e6ece137f08f8aafc
parent452a140d0cd808abbdfbb1f91dc35280b1f90794 (diff)
downloadpandoc-e7e76dbdd8b07b1fd80bda1599d58b7fbc7cf4bd.tar.gz
RST writer: Ensure no blank line after def in definition list.
Closes #992.
-rw-r--r--src/Text/Pandoc/Writers/RST.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 1a62f7250..37bb66632 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -287,7 +287,7 @@ definitionListItemToRST (label, defs) = do
label' <- inlineListToRST label
contents <- liftM vcat $ mapM blockListToRST defs
tabstop <- get >>= (return . writerTabStop . stOptions)
- return $ label' $$ nest tabstop (contents <> cr)
+ return $ label' $$ nest tabstop (nestle contents <> cr)
-- | Convert list of Pandoc block elements to RST.
blockListToRST :: [Block] -- ^ List of block elements