Man writer: don't wrap .SH and .SS lines.

Closes #5019.
2018-10-26 07:10:18 -07:00 · 2018-10-26 07:10:18 -07:00 · 8899f8838e
commit 8899f8838e
parent 1ca320e249
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@ -145,7 +145,7 @@ blockToMan opts (Header level _ inlines) = do
  let heading = case level of
                  1 -> ".SH "
                  _ -> ".SS "
-  return $ text heading <> contents
+  return $ nowrap $ text heading <> contents
 blockToMan opts (CodeBlock _ str) = return $
  text ".IP" $$
  text ".nf" $$