Add a type sig to satisfy ghc 7.10.3.
commit22a4adf4ec172545fb1ed72bb85c30dc1186de62
authorJohn MacFarlane <jgm@berkeley.edu>
dateTue 29 Aug 2017, 09:04 (9 years ago)
parent2e26046
src/Text/Pandoc/Writers/HTML.hs+1
@@ -571,6 +571,7 @@ imgAttrsToHtml opts attr = do
571571dimensionsToAttrList :: Attr -> [(String, String)]
572572dimensionsToAttrList attr = consolidateStyles $ go Width ++ go Height
573573 where
574+ consolidateStyles :: [(String, String)] -> [(String, String)]
574575 consolidateStyles xs =
575576 case partition isStyle xs of
576577 ([], _) -> xs