change package name for generated code to kubernetes-openapi-client-gen. adapt existing code to the change

This commit is contained in:
Shimin Guo
2019-02-26 10:08:58 -08:00
parent 9ac01d2c31
commit 1f4868fbe1
6 changed files with 23 additions and 26 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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 = []