@@ -6,7 +6,7 @@ module Kubernetes.Client.Config
6
6
, addCACertFile
7
7
, applyAuthSettings
8
8
, clientHooksL
9
- , cluster
9
+ , Kubernetes.Client.Config. cluster
10
10
, defaultTLSClientParams
11
11
, disableServerCertValidation
12
12
, disableServerNameValidation
@@ -46,7 +46,7 @@ import Kubernetes.Client.Auth.GCP
46
46
import Kubernetes.Client.Auth.OIDC
47
47
import Kubernetes.Client.Auth.Token
48
48
import Kubernetes.Client.Internal.TLSUtils
49
- import Kubernetes.Client.KubeConfig hiding ( cluster )
49
+ import Kubernetes.Client.KubeConfig
50
50
import Network.Connection (TLSSettings (.. ))
51
51
import qualified Network.HTTP.Client as NH
52
52
import Network.HTTP.Client.TLS (mkManagerSettings )
@@ -80,10 +80,10 @@ kubeClient oidcCache (KubeConfigFile f) = do
80
80
(tlsParams, cfg) <-
81
81
case getAuthInfo kubeConfigFile of
82
82
Left _ -> return (t,c)
83
- Right (_, auth)-> applyAuthSettings oidcCache auth (t, c)
83
+ Right (_, auth) -> applyAuthSettings oidcCache auth (t, c)
84
84
mgr <- newManager tlsParams
85
85
return (mgr, cfg)
86
- kubeClient _ (KubeConfigCluster ) = cluster
86
+ kubeClient _ (KubeConfigCluster ) = Kubernetes.Client.Config. cluster
87
87
88
88
-- | Creates 'NH.Manager' and 'K.KubernetesClientConfig' assuming it is being executed in a pod
89
89
cluster :: (MonadIO m , MonadThrow m ) => m (NH. Manager , K. KubernetesClientConfig )
0 commit comments