@@ -17,7 +17,7 @@ import Data.X509.CertificateStore (makeCertificateStore)
1717import Data.X509.File (readKeyFile, readSignedObject)
1818import Network.HTTP.Client (defaultManagerSettings,
1919 managerRawConnection, method,
20− newManager, parseUrlThrow,
20+ newManager, parseRequest,
2121 requestBody, requestHeaders)
2222import qualified Network.HTTP.Client as HTTP
2323import Network.HTTP.Client.Internal (makeConnection)
@@ -94,7 +94,7 @@ runDockerT (opts, h) r = runReaderT (unDockerT r) (opts, h)
9494mkHttpRequest :: HttpVerb -> Endpoint -> DockerClientOpts -> Maybe Request
9595mkHttpRequest verb e opts = request
9696 where fullE = T.unpack (baseUrl opts) ++ T.unpack (getEndpoint (apiVer opts) e)
97− initialR = parseUrlThrow fullE
97+ initialR = parseRequest fullE
9898 request' = case initialR of
9999 Just ir ->
100100 return $ ir {method = (encodeUtf8 . T.pack $ show verb),