From 4625150f4caa11c99cb21969480fa044472617c7 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 21 Oct 2018 23:01:58 -0700 Subject: Man reader: fix code block tests. They incorporated a spurious newline which needs to be removed. --- src/Text/Pandoc/Readers/Man.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 48f488c92..c449590ff 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -655,6 +655,7 @@ parseCodeBlock = try $ do removeFinalNewline [] = [] removeFinalNewline xs = if last xs == '\n' then init xs else xs + extractText :: ManToken -> Maybe String extractText (MLine ss) = Just $ linePartsToString ss extractText MEmptyLine = Just "" -- cgit v1.2.3