@@ -287,7 +287,7 @@ definitionListItemToRST (label, defs) = do
287 label' <- inlineListToRST label
287 label' <- inlineListToRST label
288 contents <- liftM vcat $ mapM blockListToRST defs
288 contents <- liftM vcat $ mapM blockListToRST defs
289 tabstop <- get >>= (return . writerTabStop . stOptions)
289 tabstop <- get >>= (return . writerTabStop . stOptions)
290− return $ label' $$ nest tabstop (contents <> cr)
290+ return $ label' $$ nest tabstop (nestle contents <> cr)
292-- | Convert list of Pandoc block elements to RST.
292-- | Convert list of Pandoc block elements to RST.
293blockListToRST :: [Block] -- ^ List of block elements
293blockListToRST :: [Block] -- ^ List of block elements