xml-enumerator 0.2.0.1 → 0.2.0.2

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• Text/XML/Enumerator/Parse.hs +4/−2
• xml-enumerator.cabal +1/−1

@@ -27,7 +27,7 @@ -- >  -- > parsePeople = tagNoAttr "people" $ many parsePerson -- > --- > main = parseFile_ "people.xml" (const Nothing) $ force "people required" parsePeople+-- > main = parseFile_ "people.xml" decodeEntities $ force "people required" parsePeople -- -- will produce: --@@ -664,7 +664,9 @@     loop :: Monad m => Int -> Stream Event -> Iteratee Event m (Maybe ())     loop n (Chunks []) = E.continue (loop n)     loop n chs@(Chunks (x:xs)) = case x of-        (EventBeginElement _ _) -> E.continue (loop (n+1))+        (EventBeginElement _ _) -> case xs of+                                    (EventEndElement _:_) -> E.continue (loop n)+                                    _                     -> E.continue (loop (n+1))         (EventEndElement _)             | n == 0    -> yield Nothing chs -- FIXME in the future, it would probably make more sense to use Bool in place of Maybe ()             | n == 1    -> yield (Just ()) (Chunks xs) 

@@ -1,5 +1,5 @@ name:            xml-enumerator-version:         0.2.0.1+version:         0.2.0.2 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michaels@suite-sol.com>