@@ -74,7 +74,6 @@ data ManToken = MStr RoffStr
7474 | MEmptyLine
7575 | MHeader Int [RoffStr]
7676 | MMacro MacroKind [RoffStr]
77− | MUnknownMacro String [RoffStr]
7877 | MComment String
7978 deriving Show
8079
@@ -387,8 +386,8 @@ mmaybeLink = msatisfy isMMaybeLink where
387386 isMMaybeLink (MMaybeLink _) = True
388387 isMMaybeLink _ = False
389388
390−memplyLine :: PandocMonad m => ManParser m ManToken
391−memplyLine = msatisfy isMEmptyLine where
389+memptyLine :: PandocMonad m => ManParser m ManToken
390+memptyLine = msatisfy isMEmptyLine where
392391 isMEmptyLine MEmptyLine = True
393392 isMEmptyLine _ = False
394393
@@ -408,11 +407,6 @@ mmacroAny = msatisfy isMMacro where
408407 isMMacro (MMacro _ _) = True
409408 isMMacro _ = False
410409
411−munknownMacro :: PandocMonad m => ManParser m ManToken
412−munknownMacro = msatisfy isMUnknownMacro where
413− isMUnknownMacro (MUnknownMacro _ _) = True
414− isMUnknownMacro _ = False
415−
416410mcomment :: PandocMonad m => ManParser m ManToken
417411mcomment = msatisfy isMComment where
418412 isMComment (MComment _) = True
@@ -439,18 +433,7 @@ parseTitle = do
439433 pst {stateMeta = metaUp}
440434
441435parseSkippedContent :: PandocMonad m => ManParser m Blocks
442−parseSkippedContent = do
443− tok <- munknownMacro <|> mcomment <|> memplyLine
444− onToken tok
445− return mempty
446−
447− where
448−
449− onToken :: PandocMonad m => ManToken -> ManParser m ()
450− onToken (MUnknownMacro mname _) = do
451− pos <- getPosition
452− report $ SkippedContent ("Unknown macro: " ++ mname) pos
453− onToken _ = return ()
436+parseSkippedContent = mempty <$ (mcomment <|> memptyLine)
454437
455438strToInlines :: RoffStr -> Inlines
456439strToInlines (s, fonts) = inner $ S.toList fonts where
@@ -514,7 +497,7 @@ parseInlines = do
514497parseCodeBlock :: PandocMonad m => ManParser m Blocks
515498parseCodeBlock = do
516499 mmacro "nf"
517− toks <- many (mstr <|> mline <|> mmaybeLink <|> memplyLine <|> munknownMacro <|> mcomment)
500+ toks <- many (mstr <|> mline <|> mmaybeLink <|> memptyLine <|> mcomment)
518501 mmacro "fi"
519502 return $ codeBlock (removeFinalNewline $
520503 intercalate "\n" . catMaybes $