@@ -8,7 +8,8 @@ import Data.Maybe
8import Data.Text as T
8import Data.Text as T
9import Data.Text (Text)
9import Data.Text (Text)
10import Data.Text.Encoding (decodeUtf8, encodeUtf8)
10import Data.Text.Encoding (decodeUtf8, encodeUtf8)
11−import qualified Network.HTTP.Client as HTTP
11+import Network.HTTP.Client (defaultManagerSettings, httpLbs,
12+ method, newManager, parseUrl)
12import Network.HTTP.Types (Query, encodePath,
13import Network.HTTP.Types (Query, encodePath,
13 encodePathSegments)
14 encodePathSegments)
@@ -22,9 +23,9 @@ import Docker.Types
22mkHttpRequest :: HttpVerb -> Endpoint -> DockerClientOpts -> Maybe Request
23mkHttpRequest :: HttpVerb -> Endpoint -> DockerClientOpts -> Maybe Request
23mkHttpRequest verb e opts = request
24mkHttpRequest verb e opts = request
24 where fullE = T.unpack (baseUrl opts) ++ T.unpack (getEndpoint e)
25 where fullE = T.unpack (baseUrl opts) ++ T.unpack (getEndpoint e)
25− initialR = HTTP.parseUrl fullE
26+ initialR = parseUrl fullE
26 request = case initialR of
27 request = case initialR of
27− Just ir -> return $ ir { HTTP.method = (encodeUtf8 . T.pack $ show verb) } -- , requestBody = RequestBodyLBS $ encode requestObject }
28+ Just ir -> return $ ir { method = (encodeUtf8 . T.pack $ show verb) } -- , requestBody = RequestBodyLBS $ encode requestObject }
28 Nothing -> Nothing
29 Nothing -> Nothing
29 -- TODO: manager = newManager defaultManagerSettings -- We likely need
30 -- TODO: manager = newManager defaultManagerSettings -- We likely need
30 -- this for TLS.
31 -- this for TLS.