diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-24 09:56:40 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-24 09:56:40 +0100 |
| commit | 4248231a7e43f9a0cbd42aec5448c4d3fc392d22 (patch) | |
| tree | f058f2b93610e66b544e021302f5f27ef73ceda2 /src/Text/Pandoc/Writers/Ms.hs | |
| parent | 718254340fb73d75cf8f6fc322631c1c72db0e47 (diff) | |
Ms writer: fixed rawblock/inline to accept "ms" format.
Diffstat (limited to 'src/Text/Pandoc/Writers/Ms.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |