Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix compiler warnings from last commit.

Browse source
This commit is contained in:
John MacFarlane 2022-04-18 15:19:21 -07:00
parent 6a041a1b75
commit 6dc692bc5f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/Shared.hs
View file

@ -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