From 4248231a7e43f9a0cbd42aec5448c4d3fc392d22 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 24 Mar 2017 09:56:40 +0100 Subject: Ms writer: fixed rawblock/inline to accept "ms" format. --- src/Text/Pandoc/Writers/Ms.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 84b911e35..f69448dbf 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -233,8 +233,8 @@ blockToMs opts (Para inlines) = do splitSentences inlines return $ text ".LP" $$ contents blockToMs _ b@(RawBlock f str) - | f == Format "man" = return $ text str - | otherwise = do + | f == Format "ms" = return $ text str + | otherwise = do report $ BlockNotRendered b return empty blockToMs _ HorizontalRule = @@ -432,8 +432,8 @@ inlineToMs opts (Math DisplayMath str) = do Right r -> return $ cr <> text ".EQ" $$ text (escapeBar r) $$ text ".EN" inlineToMs _ il@(RawInline f str) - | f == Format "man" = return $ text str - | otherwise = do + | f == Format "ms" = return $ text str + | otherwise = do report $ InlineNotRendered il return empty inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr -- cgit v1.2.3