diff options
-rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index e716b147d..0ca3ddea9 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -357,8 +357,7 @@ definitionListItemToMs opts (label, defs) = do mapM (\item -> blockToMs opts item) rest first' <- blockToMs opts first return $ first' $$ text ".RS" $$ rest' $$ text ".RE" - return $ text ".XP" $$ nowrap (text ".B \"" <> labelText <> text "\"") - $$ text "\\~\\~" <> contents + return $ nowrap (text ".IP \"" <> labelText <> text "\"") $$ contents -- | Convert list of Pandoc block elements to man. blockListToMs :: PandocMonad m |