diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 769df7b0e..a8c662e09 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -502,7 +502,7 @@ listItemToHtml opts bls let checkbox = if checked then checkbox' ! A.checked "" else checkbox' - checkbox' = H.input ! A.type_ "checkbox" ! A.disabled "" >> nl + checkbox' = H.input ! A.type_ "checkbox" ! A.disabled "" isContents <- inlineListToHtml opts is bsContents <- blockListToHtml opts bs return $ constr (checkbox >> isContents) >> bsContents diff --git a/test/command/tasklist.md b/test/command/tasklist.md index 2f648d187..70fe8e13e 100644 --- a/test/command/tasklist.md +++ b/test/command/tasklist.md @@ -6,10 +6,8 @@ tests adapted from - [x] bar ^D ``` @@ -22,15 +20,12 @@ bar - [ ] bim ^D