diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-15 22:15:35 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:42 +0100 |
| commit | 2d04922cd0f2213f371db41729f4348f968c8b30 (patch) | |
| tree | cc6badc6705ba5d9cf60396f21f25233afc382ca | |
| parent | 8d179f75089fdb6c4101bfa9bcee1e75e08237fb (diff) | |
| download | pandoc-2d04922cd0f2213f371db41729f4348f968c8b30.tar.gz | |
Factored out deNote in Shared.
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index fabda42ed..18b4d3eac 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -400,8 +400,10 @@ removeFormatting = query go . walk deNote go (Math _ x) = [Str x] go LineBreak = [Space] go _ = [] - deNote (Note _) = Str "" - deNote x = x + +deNote :: Inline -> Inline +deNote (Note _) = Str "" +deNote x = x -- | Convert pandoc structure to a string with formatting removed. -- Footnotes are skipped (since we don't want their contents in link @@ -417,8 +419,6 @@ stringify = query go . walk deNote go (RawInline (Format "html") ('<':'b':'r':_)) = " " -- see #2105 go LineBreak = " " go _ = "" - deNote (Note _) = Str "" - deNote x = x -- | Bring all regular text in a pandoc structure to uppercase. -- |