HandsomeSoup 0.4 → 0.4.2

raw patch · 2 files changed

+6/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• HandsomeSoup.cabal +1/−2
• src/Text/CSS/Parser.hs +5/−5

@@ -1,5 +1,5 @@ Name:               HandsomeSoup-Version:            0.4+Version:            0.4.2 Synopsis:           Work with HTML more easily in HXT Description:        See examples and full readme on the Github page: https:\/\/github.com\/egonSchiele\/HandsomeSoup Homepage:           https://github.com/egonSchiele/HandsomeSoup@@ -66,4 +66,3 @@   Build-depends:   base            >= 4.6  &&  < 5                  , HandsomeSoup                  , hxt-

@@ -13,7 +13,7 @@ -- if the attr value is prefixed with a '~', we treat -- that attribute as a list of words separated by a space -- and make sure that at least one of those words matches.--- +-- -- if the attr value is prefixed with a `|`, the value must -- be exactly val or start with val immediately followed by a '-'. -- This is primarily intended to allow language subcode matches.@@ -69,12 +69,12 @@ -- | selects attributes, like @ [id] @ (element must have id) or @ [id=foo] @ (element must have id foo). attributeSelector :: ParsecT [Char] u I.Identity ([Char], [Char]) attributeSelector = do-      _contents <- between (char '[') (char ']') (many1 (alphaNum <|> oneOf "/-_|~=\"'."))+      _contents <- between (char '[') (char ']') (many1 (noneOf "[]"))       -- remove quotes       let contents = filter (\c -> c /= '"' && c /= '\'') _contents-      if "~=" `isInfixOf` contents +      if "~=" `isInfixOf` contents           then return $ (\(a, b) -> (a, '~':b)) $ splitOn "~=" contents-          else if "|=" `isInfixOf` contents +          else if "|=" `isInfixOf` contents               then return $ (\(a, b) -> (a, '|':b)) $ splitOn "|=" contents               else if '=' `elem` contents                    then return $ splitOn "=" contents@@ -120,7 +120,7 @@ simpleSelector :: ParsecT [Char] u I.Identity Selector simpleSelector = simpleSelectorTag <|> simpleSelectorNoTag <|> try childOf <|> try followedBy <|> space_ --- | One or more simple selectors separated by combinators. +-- | One or more simple selectors separated by combinators. selector :: ParsecT [Char] u I.Identity [[Selector]] selector = many1 simpleSelector `sepBy` (spaces >> string "," >> spaces)