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