diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-04-18 15:19:21 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-04-18 15:19:21 -0700 |
| commit | 6dc692bc5ffc6f6acc3a4222490202cc66f0726f (patch) | |
| tree | dfcc1062ea27a25737f1cecc0be658ba7c8e9eed /src | |
| parent | 6a041a1b75e5b6e248d1d37d23ca22258d7a3cd8 (diff) | |
Fix compiler warnings from last commit.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index ea2536001..64cd85997 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -56,7 +56,7 @@ import qualified Text.Pandoc.Builder as Builder import Text.Pandoc.Definition import Text.Pandoc.Options import Text.DocLayout -import Text.Pandoc.Shared (stringify, makeSections, deNote, deLink, blocksToInlines) +import Text.Pandoc.Shared (stringify, makeSections, blocksToInlines) import Text.Pandoc.Walk (walk) import qualified Text.Pandoc.UTF8 as UTF8 import Text.Pandoc.XML (escapeStringForXML) @@ -445,7 +445,7 @@ sectionToListItem opts (Div (ident,_,_) then id else (Span ("",["toc-section-number"],[]) [Str num] :) . (Space :) - clean (Link _ ils _) = ils + clean (Link _ xs _) = xs clean (Note _) = [] clean x = [x] headerText' = addNumber $ walk (concatMap clean) ils |