@@ -521,7 +521,7 @@ attrsToHtml opts (id',classes',keyvals) =
521521imgAttrsToHtml :: WriterOptions -> Attr -> [Attribute]
522522imgAttrsToHtml opts attr =
523523 attrsToHtml opts (ident,cls,kvs') ++
524− toAttrs (dimensionsToAttrList opts attr)
524+ toAttrs (dimensionsToAttrList attr)
525525 where
526526 (ident,cls,kvs) = attr
527527 kvs' = filter isNotDim kvs
@@ -529,8 +529,8 @@ imgAttrsToHtml opts attr =
529529 isNotDim ("height", _) = False
530530 isNotDim _ = True
531531
532−dimensionsToAttrList :: WriterOptions -> Attr -> [(String, String)]
533−dimensionsToAttrList opts attr = (go Width) ++ (go Height)
532+dimensionsToAttrList :: Attr -> [(String, String)]
533+dimensionsToAttrList attr = (go Width) ++ (go Height)
534534 where
535535 go dir = case (dimension dir attr) of
536536 (Just (Pixel a)) -> [(show dir, show a)]