@@ -305,15 +305,18 @@ definitionListItemToMan opts (label, defs) = do
305 labelText <- inlineListToMan opts label
305 labelText <- inlineListToMan opts label
306 contents <- if null defs
306 contents <- if null defs
307 then return empty
307 then return empty
308− else liftM vcat $ forM defs $ \blocks -> do
308+ else liftM vcat $ forM defs $ \blocks ->
311+ first' <- blockToMan opts $
309− (first, rest) <- case blocks of
312+ case x of
310− ((Para x):y) -> return (Plain x,y)
313+ Para y -> Plain y
311− (x:y) -> return (x,y)
314+ _ -> x
312− [] -> throwError $ PandocSomeError "blocks is null"
313− rest' <- liftM vcat $
315+ rest' <- liftM vcat $ mapM
314− mapM (\item -> blockToMan opts item) rest
316+ (\item -> blockToMan opts item) xs
315− first' <- blockToMan opts first
317+ return $ first' $$
316− return $ first' $$ text ".RS" $$ rest' $$ text ".RE"
318+ text ".RS" $$ rest' $$ text ".RE"
317 return $ text ".TP" $$ nowrap (text ".B " <> labelText) $$ contents
320 return $ text ".TP" $$ nowrap (text ".B " <> labelText) $$ contents
319-- | Convert list of Pandoc block elements to man.
322-- | Convert list of Pandoc block elements to man.