From 4625150f4caa11c99cb21969480fa044472617c7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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 +
 test/man-reader.native         | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

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 ""
diff --git a/test/man-reader.native b/test/man-reader.native
index 9973ac022..c8822d61b 100644
--- a/test/man-reader.native
+++ b/test/man-reader.native
@@ -14,16 +14,16 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "Oct",Space,Str "17,",
 ,Header 1 ("",[],[]) [Str "Block",Space,Str "Quotes"]
 ,Para [Str "Code",Space,Str "in",Space,Str "a",Space,Str "block",Space,Str "quote:"]
 ,BlockQuote
- [CodeBlock ("",[],[]) "\nsub status {\n    print \"working\";\n}"]
+ [CodeBlock ("",[],[]) "sub status {\n    print \"working\";\n}"]
 ,Para [Str "A",Space,Str "list:"]
 ,OrderedList (1,Decimal,Period)
  [[Para [Str "item",Space,Str "one"]]
  ,[Para [Str "item",Space,Str "two"]]]
 ,Header 1 ("",[],[]) [Str "Code",Space,Str "Blocks"]
 ,Para [Str "Code:"]
-,CodeBlock ("",[],[]) "\n---- (should be four hyphens)\n\nsub status {\n    print \"working\";\n}\n"
+,CodeBlock ("",[],[]) "---- (should be four hyphens)\n\nsub status {\n    print \"working\";\n}\n"
 ,Para [Str "And:"]
-,CodeBlock ("",[],[]) "\n\tthis code line is indented by one tab"
+,CodeBlock ("",[],[]) "\tthis code line is indented by one tab"
 ,Para [Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]
 ,Header 1 ("",[],[]) [Str "Lists"]
 ,Header 2 ("",[],[]) [Str "Unordered"]
-- 
cgit v1.2.3