diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index adabd302e521..efe750ecc723 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -356,7 +356,6 @@ pandocToHtml opts (Pandoc meta blocks) = do
then defField "csl-css" True .
(case stCslEntrySpacing st of
Nothing -> id
- Just 0 -> id
Just n ->
defField "csl-entry-spacing"
(literal $ tshow n <> "em"))