From e180a2efa6477dd08b7c6c41816d6cfdf9f24afd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 23 Mar 2017 14:48:09 +0100
Subject: Ms writer: fixed hard line breaks.

---
 src/Text/Pandoc/Writers/Ms.hs | 3 +--
 test/writer.ms                | 4 +---
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 523167349..e716b147d 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -438,8 +438,7 @@ inlineToMs opts (Math DisplayMath str) = do
 inlineToMs _ (RawInline f str)
   | f == Format "man" = return $ text str
   | otherwise         = return empty
-inlineToMs _ (LineBreak) = return $
-  cr <> text ".PD 0" $$ text ".P" $$ text ".PD" <> cr
+inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr
 inlineToMs opts SoftBreak = handleNotes opts cr
 inlineToMs opts Space = handleNotes opts space
 inlineToMs opts (Link _ txt (src, _)) = do
diff --git a/test/writer.ms b/test/writer.ms
index ec97f3f88..6b066fc39 100644
--- a/test/writer.ms
+++ b/test/writer.ms
@@ -68,9 +68,7 @@ Here's one with a bullet.
 * criminey.
 .LP
 There should be a hard line break
-.PD 0
-.P
-.PD
+.br
 here.
 .PP
    *   *   *   *   *
-- 
cgit v1.2.3