diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-05-26 10:21:55 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-26 10:21:55 +0200 |
| commit | 8ec03cfc872d7ff58a2585740cecb4215313251a (patch) | |
| tree | 9de220aad5877749c9acf62215a9cbc4fe53e40b /src/Text/Pandoc/Writers/HTML.hs | |
| parent | cb7b0a69859cbf838519c5ad5f35d40ffd4f4246 (diff) | |
| download | pandoc-8ec03cfc872d7ff58a2585740cecb4215313251a.tar.gz | |
HTML writer: Removed unused parameter in dimensionsToAttributeList.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 2a72f6f3d..030f332ca 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -521,7 +521,7 @@ attrsToHtml opts (id',classes',keyvals) = imgAttrsToHtml :: WriterOptions -> Attr -> [Attribute] imgAttrsToHtml opts attr = attrsToHtml opts (ident,cls,kvs') ++ - toAttrs (dimensionsToAttrList opts attr) + toAttrs (dimensionsToAttrList attr) where (ident,cls,kvs) = attr kvs' = filter isNotDim kvs @@ -529,8 +529,8 @@ imgAttrsToHtml opts attr = isNotDim ("height", _) = False isNotDim _ = True -dimensionsToAttrList :: WriterOptions -> Attr -> [(String, String)] -dimensionsToAttrList opts attr = (go Width) ++ (go Height) +dimensionsToAttrList :: Attr -> [(String, String)] +dimensionsToAttrList attr = (go Width) ++ (go Height) where go dir = case (dimension dir attr) of (Just (Pixel a)) -> [(show dir, show a)] |