From f61d35fd5a1ccf0cfa043de7a78c064cfc7023cc Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 19 Oct 2018 14:19:44 -0700
Subject: Man reader: generate Space elements correctly.
Closes #4979.
---
src/Text/Pandoc/Readers/Man.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 533c50eef..d248a0714 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -444,7 +444,7 @@ parseTitle = do
else do
let mantitle = fst $ head args
modifyState (changeTitle mantitle)
- return $ header 1 $ str mantitle
+ return $ header 1 $ text mantitle
where
changeTitle title pst =
let meta = stateMeta pst
@@ -469,7 +469,7 @@ parseSkippedContent = do
strToInlines :: RoffStr -> Inlines
strToInlines (s, fonts) = inner $ S.toList fonts where
inner :: [FontKind] -> Inlines
- inner [] = str s
+ inner [] = text s
inner (Bold:fs) = strong $ inner fs
inner (Italic:fs) = emph $ inner fs
@@ -503,7 +503,7 @@ parseInlines = do
(MMaybeLink txt) <- mmaybeLink
let inls = case runParser linkParser () "" txt of
Right lnk -> lnk
- Left _ -> strong $ str txt
+ Left _ -> strong $ text txt
return inls
where
@@ -519,7 +519,7 @@ parseInlines = do
other <- many anyChar
let manurl pagename section = "../"++section++"/"++pagename++"."++section
lnkInls = link (manurl mpage [mansect]) mpage (strong $ str mpage)
- return $ lnkInls <> strong (str (" ("++[mansect] ++ ")") <> str other)
+ return $ lnkInls <> strong (str (" ("++[mansect] ++ ")") <> text other)
comment :: PandocMonad m => ManParser m Inlines
comment = mcomment >> return mempty
--
cgit v1.2.3