change package name for generated code to kubernetes-openapi-client-gen. adapt existing code to the change
This commit is contained in:
@@ -4,7 +4,7 @@ library:
|
|||||||
source-dirs: src
|
source-dirs: src
|
||||||
dependencies:
|
dependencies:
|
||||||
- base >=4.7 && <5.0
|
- base >=4.7 && <5.0
|
||||||
- kubernetes == 0.1.0.0
|
- kubernetes-openapi-client-gen == 0.1.0.0
|
||||||
- pem
|
- pem
|
||||||
- x509
|
- x509
|
||||||
- tls
|
- tls
|
||||||
@@ -19,6 +19,3 @@ dependencies:
|
|||||||
- bytestring >=0.10.0 && <0.11
|
- bytestring >=0.10.0 && <0.11
|
||||||
- text >=0.11 && <1.3
|
- text >=0.11 && <1.3
|
||||||
- safe-exceptions <0.2
|
- safe-exceptions <0.2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -2,8 +2,8 @@
|
|||||||
|
|
||||||
module Kubernetes.ClientHelper where
|
module Kubernetes.ClientHelper where
|
||||||
|
|
||||||
import qualified Kubernetes.Core as K
|
import qualified Kubernetes.OpenAPI.Core as K
|
||||||
import qualified Kubernetes.Model as K
|
import qualified Kubernetes.OpenAPI.Model as K
|
||||||
|
|
||||||
import Control.Exception.Safe (Exception, MonadThrow, throwM)
|
import Control.Exception.Safe (Exception, MonadThrow, throwM)
|
||||||
import Control.Monad.IO.Class (MonadIO, liftIO)
|
import Control.Monad.IO.Class (MonadIO, liftIO)
|
||||||
@@ -32,23 +32,23 @@ import qualified Network.TLS.Extra as TLS
|
|||||||
import System.Environment (getEnv)
|
import System.Environment (getEnv)
|
||||||
import System.X509 (getSystemCertificateStore)
|
import System.X509 (getSystemCertificateStore)
|
||||||
|
|
||||||
-- |Sets the master URI in the 'K.KubernetesConfig'.
|
-- |Sets the master URI in the 'K.KubernetesClientConfig'.
|
||||||
setMasterURI
|
setMasterURI
|
||||||
:: T.Text -- ^ Master URI
|
:: T.Text -- ^ Master URI
|
||||||
-> K.KubernetesConfig
|
-> K.KubernetesClientConfig
|
||||||
-> K.KubernetesConfig
|
-> K.KubernetesClientConfig
|
||||||
setMasterURI server kcfg =
|
setMasterURI server kcfg =
|
||||||
kcfg { K.configHost = (LazyB.fromStrict . T.encodeUtf8) server }
|
kcfg { K.configHost = (LazyB.fromStrict . T.encodeUtf8) server }
|
||||||
|
|
||||||
-- |Disables the client-side auth methods validation. This is necessary if you are using client cert authentication.
|
-- |Disables the client-side auth methods validation. This is necessary if you are using client cert authentication.
|
||||||
disableValidateAuthMethods :: K.KubernetesConfig -> K.KubernetesConfig
|
disableValidateAuthMethods :: K.KubernetesClientConfig -> K.KubernetesClientConfig
|
||||||
disableValidateAuthMethods kcfg = kcfg { K.configValidateAuthMethods = False }
|
disableValidateAuthMethods kcfg = kcfg { K.configValidateAuthMethods = False }
|
||||||
|
|
||||||
-- |Configures the 'K.KubernetesConfig' to use token authentication.
|
-- |Configures the 'K.KubernetesClientConfig' to use token authentication.
|
||||||
setTokenAuth
|
setTokenAuth
|
||||||
:: T.Text -- ^Authentication token
|
:: T.Text -- ^Authentication token
|
||||||
-> K.KubernetesConfig
|
-> K.KubernetesClientConfig
|
||||||
-> K.KubernetesConfig
|
-> K.KubernetesClientConfig
|
||||||
setTokenAuth token kcfg = kcfg
|
setTokenAuth token kcfg = kcfg
|
||||||
{ K.configAuthMethods = [K.AnyAuthMethod (K.AuthApiKeyBearerToken $ "Bearer " <> token)]
|
{ K.configAuthMethods = [K.AnyAuthMethod (K.AuthApiKeyBearerToken $ "Bearer " <> token)]
|
||||||
}
|
}
|
||||||
@@ -124,7 +124,7 @@ loadPEMCerts p = do
|
|||||||
serviceAccountDir :: FilePath
|
serviceAccountDir :: FilePath
|
||||||
serviceAccountDir = "/var/run/secrets/kubernetes.io/serviceaccount"
|
serviceAccountDir = "/var/run/secrets/kubernetes.io/serviceaccount"
|
||||||
|
|
||||||
cluster :: (MonadIO m, MonadThrow m) => m (NH.Manager, K.KubernetesConfig)
|
cluster :: (MonadIO m, MonadThrow m) => m (NH.Manager, K.KubernetesClientConfig)
|
||||||
cluster = do
|
cluster = do
|
||||||
caStore <- loadPEMCerts $ serviceAccountDir ++ "/ca.crt"
|
caStore <- loadPEMCerts $ serviceAccountDir ++ "/ca.crt"
|
||||||
defTlsParams <- liftIO defaultTLSClientParams
|
defTlsParams <- liftIO defaultTLSClientParams
|
||||||
|
|||||||
@@ -10,6 +10,6 @@ dependencies:
|
|||||||
- mtl >=2.2.1
|
- mtl >=2.2.1
|
||||||
- streaming-bytestring >= 0.1.5 && < 0.2.0
|
- streaming-bytestring >= 0.1.5 && < 0.2.0
|
||||||
- text >=0.11 && <1.3
|
- text >=0.11 && <1.3
|
||||||
- kubernetes == 0.1.0.0
|
- kubernetes-openapi-client-gen == 0.1.0.0
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -13,10 +13,10 @@ import Data.Aeson
|
|||||||
import qualified Data.ByteString as B
|
import qualified Data.ByteString as B
|
||||||
import qualified Data.ByteString.Streaming.Char8 as Q
|
import qualified Data.ByteString.Streaming.Char8 as Q
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
import Kubernetes.Core
|
import Kubernetes.OpenAPI.Core
|
||||||
import Kubernetes.Client
|
import Kubernetes.OpenAPI.Client
|
||||||
import Kubernetes.MimeTypes
|
import Kubernetes.OpenAPI.MimeTypes
|
||||||
import Kubernetes.Model (Watch(..))
|
import Kubernetes.OpenAPI.Model (Watch(..))
|
||||||
import Network.HTTP.Client
|
import Network.HTTP.Client
|
||||||
|
|
||||||
data WatchEvent a = WatchEvent
|
data WatchEvent a = WatchEvent
|
||||||
@@ -66,7 +66,7 @@ Launching 'dispatchWatch' with the above we get a stream of endpoints data:
|
|||||||
dispatchWatch ::
|
dispatchWatch ::
|
||||||
(HasOptionalParam req Watch, MimeType accept, MimeType contentType) =>
|
(HasOptionalParam req Watch, MimeType accept, MimeType contentType) =>
|
||||||
Manager
|
Manager
|
||||||
-> KubernetesConfig
|
-> KubernetesClientConfig
|
||||||
-> KubernetesRequest req contentType resp accept
|
-> KubernetesRequest req contentType resp accept
|
||||||
-> (Q.ByteString IO () -> IO a)
|
-> (Q.ByteString IO () -> IO a)
|
||||||
-> IO a
|
-> IO a
|
||||||
|
|||||||
@@ -1,6 +1,6 @@
|
|||||||
name: kubernetes-openapi
|
name: kubernetes-openapi-client-gen
|
||||||
version: 0.1.0.0
|
version: 0.1.0.0
|
||||||
synopsis: Auto-generated kubernetes-openapi API Client
|
synopsis: Auto-generated kubernetes-openapi-client-gen API Client
|
||||||
description: .
|
description: .
|
||||||
Client library for calling the Kubernetes API based on http-client.
|
Client library for calling the Kubernetes API based on http-client.
|
||||||
.
|
.
|
||||||
@@ -57,7 +57,7 @@ library
|
|||||||
, vector >=0.10.9 && <0.13
|
, vector >=0.10.9 && <0.13
|
||||||
, katip >=0.4 && < 0.6
|
, katip >=0.4 && < 0.6
|
||||||
other-modules:
|
other-modules:
|
||||||
Paths_kubernetes_openapi
|
Paths_kubernetes_openapi_client_gen
|
||||||
exposed-modules:
|
exposed-modules:
|
||||||
Kubernetes.OpenAPI
|
Kubernetes.OpenAPI
|
||||||
Kubernetes.OpenAPI.API.Admissionregistration
|
Kubernetes.OpenAPI.API.Admissionregistration
|
||||||
@@ -127,7 +127,7 @@ test-suite tests
|
|||||||
tests
|
tests
|
||||||
ghc-options: -Wall -fno-warn-orphans
|
ghc-options: -Wall -fno-warn-orphans
|
||||||
build-depends:
|
build-depends:
|
||||||
kubernetes-openapi
|
kubernetes-openapi-client-gen
|
||||||
, QuickCheck
|
, QuickCheck
|
||||||
, aeson
|
, aeson
|
||||||
, base >=4.7 && <5.0
|
, base >=4.7 && <5.0
|
||||||
@@ -95,14 +95,14 @@ instance P.Show KubernetesClientConfig where
|
|||||||
--
|
--
|
||||||
-- configUserAgent:
|
-- configUserAgent:
|
||||||
--
|
--
|
||||||
-- @"kubernetes-openapi/0.1.0.0"@
|
-- @"kubernetes-openapi-client-gen/0.1.0.0"@
|
||||||
--
|
--
|
||||||
newConfig :: IO KubernetesClientConfig
|
newConfig :: IO KubernetesClientConfig
|
||||||
newConfig = do
|
newConfig = do
|
||||||
logCxt <- initLogContext
|
logCxt <- initLogContext
|
||||||
return $ KubernetesClientConfig
|
return $ KubernetesClientConfig
|
||||||
{ configHost = "https://localhost"
|
{ configHost = "https://localhost"
|
||||||
, configUserAgent = "kubernetes-openapi/0.1.0.0"
|
, configUserAgent = "kubernetes-openapi-client-gen/0.1.0.0"
|
||||||
, configLogExecWithContext = runDefaultLogExecWithContext
|
, configLogExecWithContext = runDefaultLogExecWithContext
|
||||||
, configLogContext = logCxt
|
, configLogContext = logCxt
|
||||||
, configAuthMethods = []
|
, configAuthMethods = []
|
||||||
|
|||||||
Reference in New Issue
Block a user