git.iko.soy/typeable/pandoc
on master help sign in
Add a type sig to satisfy ghc 7.10.3.
22a4adfJohn MacFarlane
src/Text/Pandoc/Writers/HTML.hs+1
compare with master
unifiedsplit
@@ -571,6 +571,7 @@ imgAttrsToHtml opts attr = do
571dimensionsToAttrList :: Attr -> [(String, String)]
571dimensionsToAttrList :: Attr -> [(String, String)]
572dimensionsToAttrList attr = consolidateStyles $ go Width ++ go Height
572dimensionsToAttrList attr = consolidateStyles $ go Width ++ go Height
573 where
573 where
574+ consolidateStyles :: [(String, String)] -> [(String, String)]
574 consolidateStyles xs =
575 consolidateStyles xs =
575 case partition isStyle xs of
576 case partition isStyle xs of
576 ([], _) -> xs
577 ([], _) -> xs