XMLParser 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+11/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• README.md +6/−0
• Text/XMLParser.hs +4/−4
• XMLParser.cabal +1/−1

@@ -1,1 +1,7 @@ # xml-parser+++```+Prelude Text.XMLParser>  parseXML  "<a> hi </a>"                                                                                                           +Right (Tag [] "a" (Just [TagString " hi "]))  +```

@@ -86,11 +86,11 @@  closedTag = do  (x,a) <- openTag- let cd = fmap Left cdata+ let cd = fmap Right cdata'  let frag = fmap Left fragmentParse- let text = fmap Right (noneOf "><") - y <- manyTill (try cd <|> try frag <|> text) (try $ closeTag x)- let s = map (either head ( TagString . replaceEntities )) (groupEithers y)+ let text = fmap Right (noneOf "><" >>= return . (:[]) ) + y <- manyTill ( try cd <|> try frag <|> text) (try $ closeTag x)+ let s = map (either head ( TagString . replaceEntities . concat )) (groupEithers y)  return (Tag a x (Just s))    fragmentParse = do

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.0.0+version:             0.1.0.1  -- A short (one-line) description of the package. synopsis:            A library to parse xml