f61d35f · typeable/pandoc

444 else do

445 let mantitle = fst $ head args

446 modifyState (changeTitle mantitle)

447− return $ header 1 $ str mantitle

447+ return $ header 1 $ text mantitle

448 where

449 changeTitle title pst =

450 let meta = stateMeta pst

469strToInlines :: RoffStr -> Inlines

470strToInlines (s, fonts) = inner $ S.toList fonts where

471 inner :: [FontKind] -> Inlines

472− inner [] = str s

472+ inner [] = text s

473 inner (Bold:fs) = strong $ inner fs

474 inner (Italic:fs) = emph $ inner fs

475

503 (MMaybeLink txt) <- mmaybeLink

504 let inls = case runParser linkParser () "" txt of

505 Right lnk -> lnk

506− Left _ -> strong $ str txt

506+ Left _ -> strong $ text txt

507 return inls

508

509 where

519 other <- many anyChar

520 let manurl pagename section = "../"++section++"/"++pagename++"."++section

521 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)

523

524 comment :: PandocMonad m => ManParser m Inlines

525 comment = mcomment >> return mempty