xml-conduit 1.0.1 → 1.0.1.1
raw patch · 2 files changed
+5/−1 lines, 2 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Text.XML.Unresolved: MissingRootElement :: InvalidEventStream
Files
- Text/XML/Unresolved.hs +4/−0
- xml-conduit.cabal +1/−1
Text/XML/Unresolved.hs view
@@ -96,6 +96,7 @@ parseLBS_ ps lbs = either throw id $ parseLBS ps lbs data InvalidEventStream = ContentAfterRoot P.EventPos+ | MissingRootElement | InvalidInlineDoctype P.EventPos | MissingEndElement Name (Maybe P.EventPos) | UnterminatedInlineDoctype@@ -103,6 +104,7 @@ instance Exception InvalidEventStream instance Show InvalidEventStream where show (ContentAfterRoot (pos, e)) = mShowPos pos ++ "Found content after root element: " ++ prettyShowE e+ show MissingRootElement = "Missing root element" show (InvalidInlineDoctype (pos, e)) = mShowPos pos ++ "Invalid content inside doctype: " ++ prettyShowE e show (MissingEndElement name Nothing) = "Documented ended while expected end element for: " ++ prettyShowName name show (MissingEndElement name (Just (pos, e))) = mShowPos pos ++ "Expected end element for: " ++ prettyShowName name ++ ", but received: " ++ prettyShowE e@@ -135,6 +137,7 @@ y <- CL.head case y of Nothing -> return d+ Just (_, EventEndDocument) -> lift $ monadThrow MissingRootElement Just z -> lift $ monadThrow $ ContentAfterRoot z where@@ -158,6 +161,7 @@ my <- CL.head case my of Nothing -> error "Text.XML.Unresolved:impossible"+ Just (_, EventEndDocument) -> lift $ monadThrow MissingRootElement Just y -> lift $ monadThrow $ ContentAfterRoot y goP = Prologue <$> goM <*> goD <*> goM goM = many goM'
xml-conduit.cabal view
@@ -1,5 +1,5 @@ name: xml-conduit-version: 1.0.1+version: 1.0.1.1 license: BSD3 license-file: LICENSE author: Michael Snoyman <michaels@suite-sol.com>, Aristid Breitkreuz <aristidb@googlemail.com>