soap 0.2.2.0 → 0.2.2.1

raw patch · 3 files changed

+10/−20 lines, 3 files

Files

• changelog +4/−0
• soap.cabal +4/−3
• src/Network/SOAP/Transport/HTTP.hs +2/−17

@@ -1,3 +1,7 @@+0.2.2.1:++    + Add basic http transport initializer to exports.+ 0.2.2:      * Switch to http-client transport.

@@ -1,5 +1,5 @@ name:                soap-version:             0.2.2.0+version:             0.2.2.1 synopsis:            SOAP client tools description:   Tools to build SOAP clients using xml-conduit.@@ -8,8 +8,7 @@   .   > main = do   >     -- Initial one-time preparations.-  >     certP <- clientCert "priv/client.crt" "priv/client.key"-  >     transport <- initTransport "https://example.com/soap/endpoint" certP (iconv "cp-1251")+  >     transport <- initTransport "http://example.com/soap/endpoint" id (iconv "cp-1251")   >   >     -- Making queries   >     activeStaff <- listStaff transport True@@ -30,6 +29,8 @@   >         parsePerson = tagName "person" (requireAttr "age") $ \age -> do   >                           name <- Parse.content   >                           return $ Person name (read . unpack $ age)+  .+  Notice: to invoke HTTPS services you need to initialize a transport from soap-tls or soap-openssl.  homepage:            https://bitbucket.org/dpwiz/haskell-soap license:             MIT

@@ -1,16 +1,13 @@ {-# LANGUAGE OverloadedStrings #-} --- | A feature-rich http-conduit based transport allowing to deal with---   HTTPS, authentication and other stuff using request and body processors.- module Network.SOAP.Transport.HTTP     (       -- * Initialization-      initTransport, initTransport_+      initTransport, initTransport_, initTransportWith     , confTransport, confTransportWith     , EndpointURL       -- * Making a request-    , RequestP, traceRequest -- clientCert+    , RequestP, traceRequest       -- * Processing a response     , BodyP, iconv, traceBody       -- * Raw transport function@@ -146,15 +143,3 @@     where         showBody (RequestBodyLBS body) = unpack body         showBody _ = "<dynamic body>"--{---- | Load certificate, key and make a request processor setting them.-clientCert :: FilePath -- ^ Path to a certificate.-           -> FilePath -- ^ Path to a private key.-           -> IO RequestP-clientCert certPath keyPath = do-    cert <- TLS.fileReadCertificate certPath-    pkey <- TLS.fileReadPrivateKey keyPath--    return $ \req -> req { clientCertificates = [(cert, Just pkey)] }--}