From 6b576a7e2d3c8f991e9f1191e5441ab64fbfaed6 Mon Sep 17 00:00:00 2001 From: Everett Hildenbrandt Date: Fri, 27 Apr 2018 01:32:52 -0600 Subject: [PATCH] hakyll-std/TableOfContents: remove unused function `removeTOCMarker` --- site/hakyll-std/TableOfContents.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/site/hakyll-std/TableOfContents.hs b/site/hakyll-std/TableOfContents.hs index af076deb2..6886aa1ed 100644 --- a/site/hakyll-std/TableOfContents.hs +++ b/site/hakyll-std/TableOfContents.hs @@ -7,7 +7,6 @@ module TableOfContents ( tableOfContents, ignoreTOC, collectHeaders, - removeTOCMarker ) where import Text.Pandoc @@ -38,10 +37,6 @@ ignoreTOC (Header level (ident, classes, params) inline) = Header level (ident, "notoc" : classes, params) inline ignoreTOC x = x -removeTOCMarker :: Block -> Block -removeTOCMarker (BulletList (( (( Plain ((Str "toc"):_)):_)):_)) = Null -removeTOCMarker x = x - collectHeaders :: Block -> [Block] collectHeaders header@(Header _ (_, classes, _) _) = if "notoc" `elem` classes