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