diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 3aab375ab..f10546839 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -530,10 +530,14 @@ parseCodeBlock = do mmacro KCodeBlStart toks <- many (mstr <|> mline <|> mmaybeLink <|> memplyLine <|> munknownMacro <|> mcomment) mmacro KCodeBlEnd - return $ codeBlock (intercalate "\n" . catMaybes $ extractText <$> toks) + return $ codeBlock (removeFinalNewline $ + intercalate "\n" . catMaybes $ + extractText <$> toks) where + removeFinalNewline [] = [] + removeFinalNewline xs = if last xs == '\n' then init xs else xs extractText :: ManToken -> Maybe String extractText (MStr (s, _)) = Just s extractText (MLine ss) = Just . concat $ map fst ss -- TODO maybe unwords? |