diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-29 09:04:59 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-29 09:04:59 -0700 |
| commit | 22a4adf4ec172545fb1ed72bb85c30dc1186de62 (patch) | |
| tree | f1686ff6e48040f9692d973cf335af235cabfe58 /src | |
| parent | 2e26046e1334d85efab9cfc2775cf59a66e8b459 (diff) | |
| download | pandoc-22a4adf4ec172545fb1ed72bb85c30dc1186de62.tar.gz | |
Add a type sig to satisfy ghc 7.10.3.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |