xml-conduit-stylist 2.0.0.0 → 2.1.0.0
raw patch · 2 files changed
+3/−4 lines, 2 files
Files
- src/Data/HTML2CSS.hs +2/−3
- xml-conduit-stylist.cabal +1/−1
src/Data/HTML2CSS.hs view
@@ -103,9 +103,8 @@ stylize = preorder . stylize' stylize' :: PropertyParser s => QueryableStyleSheet s -> Maybe [(Txt.Text, s)] -> Maybe [(Txt.Text, s)] -> Element -> [(Txt.Text, s)]-stylize' stylesheet parent _ el = [- (k, if Txt.null k then base else cascade' v [] base)- | (k, v) <- HM.toList $ queryRules stylesheet el+stylize' stylesheet parent _ el = ("", base) : [+ (k, cascade' v [] base) | (k, v) <- HM.toList $ queryRules stylesheet el ] where base = cascade stylesheet el overrides $ fromMaybe temp $ lookup "" =<< parent overrides = concat [fst $ parseProperties' $ tokenize $ Txt.pack val
xml-conduit-stylist.cabal view
@@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 2.0.0.0+version: 2.1.0.0 -- A short (one-line) description of the package. synopsis: Bridge between xml-conduit/html-conduit and stylist