From 2251d9cb737dee44b7aad587972c8098057f99d1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 24 Mar 2017 09:18:56 +0100
Subject: Ms writer: Use custom .HRULE macro for horizontal rule.

---
 src/Text/Pandoc/Writers/Ms.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index ceec05ae7..eb56611ba 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -228,7 +228,8 @@ blockToMs _ b@(RawBlock f str)
   | otherwise         = do
       report $ BlockNotRendered b
       return empty
-blockToMs _ HorizontalRule = return $ text ".PP" $$ text "   *   *   *   *   *"
+blockToMs _ HorizontalRule =
+  return $ text ".HLINE"
 blockToMs opts (Header level _ inlines) = do
   contents <- inlineListToMs' opts inlines
   let heading = if writerNumberSections opts
-- 
cgit v1.2.3