T.P.Readers.Groff: use FontSpec, not list of FontKind.

1 files changed, 7 insertions, 8 deletions

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 4fefb0e66..d7e65abec 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -174,16 +174,15 @@ parseTitle = do
   return mempty
 
 linePartsToInlines :: [LinePart] -> Inlines
-linePartsToInlines = go []
+linePartsToInlines = go
 
   where
-  go :: [[FontKind]] -> [LinePart] -> Inlines
-  go _ [] = mempty
-  go fs (MacroArg _:xs) = go fs xs -- shouldn't happen
-  go fs (RoffStr s : xs) = text s <> go fs xs
-  go (_:fs) (Font [] : xs) = go fs xs -- return to previous font
-  go fs (Font _newfonts : xs) = go fs xs
-  go fonts (FontSize _fs : xs) = go fonts xs
+  go :: [LinePart] -> Inlines
+  go [] = mempty
+  go (MacroArg _:xs) = go xs -- shouldn't happen
+  go (RoffStr s : xs) = text s <> go xs
+  go (Font _newfonts : xs) = go xs
+  go (FontSize _fs : xs) = go xs
 
 parsePara :: PandocMonad m => ManParser m Blocks
 parsePara = para . trimInlines <$> parseInlines