blockToMan opts (Plain inlines) = 
  liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines
blockToMan opts (Plain inlines) = 
  liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines
blockToMan opts (Plain inlines) = 
  liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines