diff options
| author | Albert Krewinkel <[email protected]> | 2023-03-29 16:49:34 +0200 |
|---|---|---|
| committer | Albert Krewinkel <[email protected]> | 2023-03-29 19:13:39 +0200 |
| commit | 96c2ad7d495f34f2e40efd3b733b8ac194dcecd9 (patch) | |
| tree | d1e962344ef55af5e7f510acb773ce8e1dcc2fc3 /src | |
| parent | f0ded7bbb66b41357aad4f3db8062941aae5db3c (diff) | |
HTML writer: use first paragraph in task item as checkbox label.
Closes: #8729
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index bbdbbc0ba..17fe2c945 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -501,7 +501,7 @@ listItemToHtml opts bls checkbox' = H.input ! A.type_ "checkbox" isContents <- inlineListToHtml opts is bsContents <- blockListToHtml opts bs - return $ constr (checkbox >> isContents) >> + return $ constr (H.label (checkbox >> isContents)) >> (if null bs then mempty else nl) >> bsContents |