@@ -8,7 +8,8 @@ import Data.Maybe
88import Data.Text as T
99import Data.Text (Text)
1010import Data.Text.Encoding (decodeUtf8, encodeUtf8)
11−import qualified Network.HTTP.Client as HTTP
11+import Network.HTTP.Client (defaultManagerSettings, httpLbs,
12+ method, newManager, parseUrl)
1213import Network.HTTP.Types (Query, encodePath,
1314 encodePathSegments)
1415
@@ -22,9 +23,9 @@ import Docker.Types
2223mkHttpRequest :: HttpVerb -> Endpoint -> DockerClientOpts -> Maybe Request
2324mkHttpRequest verb e opts = request
2425 where fullE = T.unpack (baseUrl opts) ++ T.unpack (getEndpoint e)
25− initialR = HTTP.parseUrl fullE
26+ initialR = parseUrl fullE
2627 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 }
2829 Nothing -> Nothing
2930 -- TODO: manager = newManager defaultManagerSettings -- We likely need
3031 -- this for TLS.