From b208eb2a560b8571af577667d5df8706f4ba8892 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 29 Mar 2023 15:18:39 +0200
Subject: HTML writer: wrap task items in labels.

The `<label>` element ensures that the item description is associated
with the checkbox, which is important for accessibility.

See: #8729
---
 src/Text/Pandoc/Writers/HTML.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index bbdbbc0ba..637e9dc96 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -501,7 +501,8 @@ listItemToHtml opts bls
           checkbox' = H.input ! A.type_ "checkbox"
       isContents <- inlineListToHtml opts is
       bsContents <- blockListToHtml opts bs
-      return $ constr (checkbox >> isContents) >>
+      return $ H.label $
+               constr (checkbox >> isContents) >>
                (if null bs then mempty else nl) >>
                bsContents
 
-- 
cgit v1.2.3