@@ -233,8 +233,8 @@ blockToMs opts (Para inlines) = do
233233 splitSentences inlines
234234 return $ text ".LP" $$ contents
235235blockToMs _ b@(RawBlock f str)
236− | f == Format "man" = return $ text str
237− | otherwise = do
236+ | f == Format "ms" = return $ text str
237+ | otherwise = do
238238 report $ BlockNotRendered b
239239 return empty
240240blockToMs _ HorizontalRule =
@@ -432,8 +432,8 @@ inlineToMs opts (Math DisplayMath str) = do
432432 Right r -> return $
433433 cr <> text ".EQ" $$ text (escapeBar r) $$ text ".EN"
434434inlineToMs _ il@(RawInline f str)
435− | f == Format "man" = return $ text str
436− | otherwise = do
435+ | f == Format "ms" = return $ text str
436+ | otherwise = do
437437 report $ InlineNotRendered il
438438 return empty
439439inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr