From 9ae792b0d45469a9fd48ce546e88dd7f12ceda06 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 12 Jul 2020 14:51:21 -0700
Subject: Ms writer: fix code highlighting with blank lines.

Previously blank lines were simply omitted from highligted code.
---
 src/Text/Pandoc/Writers/Ms.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 81de40045..d38b874d4 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -517,11 +517,11 @@ toMacro sty toktype =
 
 msFormatter :: WriterOptions -> FormatOptions -> [SourceLine] -> Doc Text
 msFormatter opts _fmtopts =
-  vcat . map fmtLine
-  where fmtLine = hcat . map fmtToken
-        fmtToken (toktype, tok) = literal "\\*" <>
-           brackets (literal (tshow toktype) <> literal " \""
-             <> literal (escapeStr opts tok) <> literal "\"")
+  literal . T.intercalate "\n" . map fmtLine
+ where
+  fmtLine = mconcat . map fmtToken
+  fmtToken (toktype, tok) =
+    "\\*[" <> (tshow toktype) <> " \"" <> (escapeStr opts tok) <> "\"]"
 
 highlightCode :: PandocMonad m => WriterOptions -> Attr -> Text -> MS m (Doc Text)
 highlightCode opts attr str =
-- 
cgit v1.2.3