From 460721cec99ad9779b8e7cb30e7440ebc8db191b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 2 Oct 2021 08:13:41 -0700
Subject: Restore markdown writer.

---
 src/Text/Pandoc/Writers/Markdown.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index fb74e8ad5..1dd9301f0 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -166,8 +166,6 @@ valToYaml _ = empty
 -- | Return markdown representation of document.
 pandocToMarkdown :: PandocMonad m => WriterOptions -> Pandoc -> MD m Text
 pandocToMarkdown opts (Pandoc meta blocks) = do
-  undefined
-{-
   let colwidth = if writerWrapText opts == WrapAuto
                     then Just $ writerColumns opts
                     else Nothing
@@ -817,8 +815,8 @@ blockListToMarkdown opts blocks = do
   mconcat <$> mapM (blockToMarkdown opts) (fixBlocks blocks)
 
 lineBreakToSpace :: Inline -> Inline
-lineBreakToSpace LineBreak = Space
-lineBreakToSpace SoftBreak = Space
+lineBreakToSpace LineBreak = Str " "
+lineBreakToSpace SoftBreak = Str " "
 lineBreakToSpace x         = x
 
 -- | Starts with space or soft break.
@@ -829,4 +827,3 @@ startsWithSpace (Str t : _) =
     _ -> False
 startsWithSpace (SoftBreak : _) = True
 startsWithSpace _ = False
--}
-- 
cgit v1.2.3