soap 0.2.3.2 → 0.2.3.3

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• soap.cabal +1/−1
• src/Network/SOAP.hs +4/−2

@@ -1,5 +1,5 @@ name:                soap-version:             0.2.3.2+version:             0.2.3.3 synopsis:            SOAP client tools description:   Tools to build SOAP clients using xml-conduit.

@@ -32,6 +32,8 @@ import           Text.XML.Writer (ToXML, soap) import qualified Data.Text as T +import           Network.SOAP.Parsing.Stream (laxTag)+ -- | Different parsing modes available to extract reply contents. data ResponseParser a = StreamParser (Parser a)            -- ^ Streaming parser from Text.XML.Stream.Parse                       | CursorParser (XML.Cursor -> a)     -- ^ XPath-like parser from Text.XML.Cursor@@ -73,8 +75,8 @@             return . func $ lbs  unwrapEnvelopeSink :: Parser a -> Parser a-unwrapEnvelopeSink sink = XSP.force "No SOAP Envelope" $ XSP.tagNoAttr "{http://schemas.xmlsoap.org/soap/envelope/}Envelope"-                        $ XSP.force "No SOAP Body" $ XSP.tagNoAttr "{http://schemas.xmlsoap.org/soap/envelope/}Body"+unwrapEnvelopeSink sink = XSP.force "No SOAP Envelope" $ laxTag "Envelope"+                        $ XSP.force "No SOAP Body" $ laxTag "Body"                         $ sink  unwrapEnvelopeCursor :: Cursor -> Cursor