@@ -3,43 +3,30 @@
33
44module Docker.Http where
55
6−import Control.Exception (catch, throw)
7−import Control.Monad.Except (ExceptT, runExceptT)
8−import Control.Monad.Reader (ReaderT, runReaderT)
9−import qualified Data.ByteString.Lazy as BL
10−import Data.Text as T
11−import Data.Text.Encoding (encodeUtf8)
12−import Network.HTTP.Client (defaultManagerSettings, httpLbs,
13− managerRawConnection, method,
14− newManager, parseUrl)
15−import qualified Network.HTTP.Client as HTTP
16−import Network.HTTP.Types (StdMethod)
17−
18−-- import Control.Monad.Except (ExceptT, MonadError, MonadError,
19−-- catchError, lift, runExceptT,
20−-- throwError, throwError)
216import Control.Applicative
22−import Control.Exception (catch, try)
7+import Control.Exception (catch, try)
238import Control.Monad.Except
24−import Control.Monad.IO.Class (liftIO)
25−-- import Control.Monad.Reader (ReaderT, runReaderT)
26−-- import Control.Monad.Reader.Class (MonadReader)
9+import Control.Monad.IO.Class (liftIO)
2710import Control.Monad.Reader
2811import Control.Monad.Reader.Class
2912import Control.Monad.Trans.Except
30−import qualified Data.ByteString.Lazy as BL
31−import Data.Text as T
32−import Data.Text.Encoding (encodeUtf8)
33−import Data.Typeable (Typeable)
34−import Network.HTTP.Client (defaultManagerSettings, httpLbs,
35− method, newManager, parseUrl)
36−import qualified Network.HTTP.Client as HTTP
37−import Network.HTTP.Types (StdMethod)
38−import System.IO.Error (catchIOError, ioError)
39−
40−import Docker.Internal (getEndpoint)
41−import Docker.Types (DockerClientOpts, Endpoint,
42− baseUrl)
13+import qualified Data.ByteString.Lazy as BL
14+import Data.Text as T
15+import Data.Text.Encoding (encodeUtf8)
16+import Data.Typeable (Typeable)
17+import Network.HTTP.Client (defaultManagerSettings, httpLbs,
18+ managerRawConnection, method,
19+ newManager, parseUrl)
20+import qualified Network.HTTP.Client as HTTP
21+import Network.HTTP.Client.Internal (makeConnection)
22+import Network.HTTP.Types (StdMethod)
23+import qualified Network.Socket as S
24+import qualified Network.Socket.ByteString as SBS
25+import System.IO.Error (catchIOError, ioError)
26+
27+import Docker.Internal (getEndpoint)
28+import Docker.Types (DockerClientOpts, Endpoint,
29+ baseUrl)
4330
4431type Request = HTTP.Request
4532type Response = HTTP.Response BL.ByteString