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