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.Definition
import Text.Pandoc.Options import Text.Pandoc.Options
import Text.DocLayout 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 Text.Pandoc.Walk (walk)
import qualified Text.Pandoc.UTF8 as UTF8 import qualified Text.Pandoc.UTF8 as UTF8
import Text.Pandoc.XML (escapeStringForXML) import Text.Pandoc.XML (escapeStringForXML)
@ -445,7 +445,7 @@ sectionToListItem opts (Div (ident,_,_)
then id then id
else (Span ("",["toc-section-number"],[]) else (Span ("",["toc-section-number"],[])
[Str num] :) . (Space :) [Str num] :) . (Space :)
clean (Link _ ils _) = ils clean (Link _ xs _) = xs
clean (Note _) = [] clean (Note _) = []
clean x = [x] clean x = [x]
headerText' = addNumber $ walk (concatMap clean) ils headerText' = addNumber $ walk (concatMap clean) ils