aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Man.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 81fa38bd7..247666b33 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -185,7 +185,7 @@ blockToMan _ (CodeBlock _ str) = return $
text ".nf" $$
text "\\f[C]" $$
text (escapeCode str) $$
- text "\\f[]" $$
+ text "\\f[R]" $$
text ".fi"
blockToMan opts (BlockQuote blocks) = do
contents <- blockListToMan opts blocks
@@ -378,7 +378,7 @@ fontChange :: PandocMonad m => StateT WriterState m Doc
fontChange = do
features <- gets stFontFeatures
let filling = sort [c | (c,True) <- Map.toList features]
- return $ text $ "\\f[" ++ filling ++ "]"
+ return $ text $ "\\f[" ++ (if null filling then "R" else filling) ++ "]"
withFontFeature :: PandocMonad m
=> Char