diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 87f61126b..1641b991c 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -571,6 +571,7 @@ imgAttrsToHtml opts attr = do
 dimensionsToAttrList :: Attr -> [(String, String)]
 dimensionsToAttrList attr = consolidateStyles $ go Width ++ go Height
   where
+    consolidateStyles :: [(String, String)] -> [(String, String)]
     consolidateStyles xs =
       case partition isStyle xs of
            ([], _) -> xs