diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.2.2.1:
+
+    + Add basic http transport initializer to exports.
+
 0.2.2:
 
     * Switch to http-client transport.
diff --git a/soap.cabal b/soap.cabal
--- a/soap.cabal
+++ b/soap.cabal
@@ -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
diff --git a/src/Network/SOAP/Transport/HTTP.hs b/src/Network/SOAP/Transport/HTTP.hs
--- a/src/Network/SOAP/Transport/HTTP.hs
+++ b/src/Network/SOAP/Transport/HTTP.hs
@@ -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)] }
--}