@@ -233,8 +233,8 @@ blockToMs opts (Para inlines) = do
233 splitSentences inlines
233 splitSentences inlines
234 return $ text ".LP" $$ contents
234 return $ text ".LP" $$ contents
235blockToMs _ b@(RawBlock f str)
235blockToMs _ b@(RawBlock f str)
236− | f == Format "man" = return $ text str
236+ | f == Format "ms" = return $ text str
237− | otherwise = do
237+ | otherwise = do
238 report $ BlockNotRendered b
238 report $ BlockNotRendered b
239 return empty
239 return empty
240blockToMs _ HorizontalRule =
240blockToMs _ HorizontalRule =
@@ -432,8 +432,8 @@ inlineToMs opts (Math DisplayMath str) = do
432 Right r -> return $
432 Right r -> return $
433 cr <> text ".EQ" $$ text (escapeBar r) $$ text ".EN"
433 cr <> text ".EQ" $$ text (escapeBar r) $$ text ".EN"
434inlineToMs _ il@(RawInline f str)
434inlineToMs _ il@(RawInline f str)
435− | f == Format "man" = return $ text str
435+ | f == Format "ms" = return $ text str
436− | otherwise = do
436+ | otherwise = do
437 report $ InlineNotRendered il
437 report $ InlineNotRendered il
438 return empty
438 return empty
439inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr
439inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr