@@ -444,7 +444,7 @@ parseTitle = do
444444 else do
445445 let mantitle = fst $ head args
446446 modifyState (changeTitle mantitle)
447− return $ header 1 $ str mantitle
447+ return $ header 1 $ text mantitle
448448 where
449449 changeTitle title pst =
450450 let meta = stateMeta pst
@@ -469,7 +469,7 @@ parseSkippedContent = do
469469strToInlines :: RoffStr -> Inlines
470470strToInlines (s, fonts) = inner $ S.toList fonts where
471471 inner :: [FontKind] -> Inlines
472− inner [] = str s
472+ inner [] = text s
473473 inner (Bold:fs) = strong $ inner fs
474474 inner (Italic:fs) = emph $ inner fs
475475
@@ -503,7 +503,7 @@ parseInlines = do
503503 (MMaybeLink txt) <- mmaybeLink
504504 let inls = case runParser linkParser () "" txt of
505505 Right lnk -> lnk
506− Left _ -> strong $ str txt
506+ Left _ -> strong $ text txt
507507 return inls
508508
509509 where
@@ -519,7 +519,7 @@ parseInlines = do
519519 other <- many anyChar
520520 let manurl pagename section = "../"++section++"/"++pagename++"."++section
521521 lnkInls = link (manurl mpage [mansect]) mpage (strong $ str mpage)
522− return $ lnkInls <> strong (str (" ("++[mansect] ++ ")") <> str other)
522+ return $ lnkInls <> strong (str (" ("++[mansect] ++ ")") <> text other)
523523
524524 comment :: PandocMonad m => ManParser m Inlines
525525 comment = mcomment >> return mempty