From 853ae7fecc6babf505f3ff4c05d8433595bb9990 Mon Sep 17 00:00:00 2001
From: Robertas <lanky-those-outlet@duck.com>
Date: Sat, 13 Jun 2026 11:00:18 +0300
Subject: [PATCH] HTML reader: fix unused variable warning in CI (#11704)

---
 src/Text/Pandoc/Readers/HTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 3a1f9a6ea..1baeda555 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -654,7 +654,7 @@ pCodeBlock = try $ do
   let stripLanguagePrefix x = fromMaybe x (T.stripPrefix "language-" x)
   let modifyClasses f ("class",v) =
         ("class", T.unwords . map f . T.words $ v)
-      modifyClasses f (k,v) = (k,v)
+      modifyClasses _ (k,v) = (k,v)
   let attr = toAttr $ map (modifyClasses stripLanguagePrefix) $ codeAttr <> attr'
   contents <- manyTill pAny (pCloses "pre" <|> eof)
   let rawText = T.concat $ map tagToText contents