@@ -400,8 +400,10 @@ removeFormatting = query go . walk deNote
400400 go (Math _ x) = [Str x]
401401 go LineBreak = [Space]
402402 go _ = []
403− deNote (Note _) = Str ""
404− deNote x = x
403+
404+deNote :: Inline -> Inline
405+deNote (Note _) = Str ""
406+deNote x = x
405407
406408-- | Convert pandoc structure to a string with formatting removed.
407409-- Footnotes are skipped (since we don't want their contents in link
@@ -417,8 +419,6 @@ stringify = query go . walk deNote
417419 go (RawInline (Format "html") ('<':'b':'r':_)) = " " -- see #2105
418420 go LineBreak = " "
419421 go _ = ""
420− deNote (Note _) = Str ""
421− deNote x = x
422422
423423-- | Bring all regular text in a pandoc structure to uppercase.
424424--