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
dependencies:
- base >=4.7 && <5.0
- kubernetes == 0.1.0.0
- kubernetes-openapi-client-gen == 0.1.0.0
- pem
- x509
- tls
@@ -19,6 +19,3 @@ dependencies:
- bytestring >=0.10.0 && <0.11
- text >=0.11 && <1.3
- safe-exceptions <0.2

View File

@@ -2,8 +2,8 @@
module Kubernetes.ClientHelper where
import qualified Kubernetes.Core as K
import qualified Kubernetes.Model as K
import qualified Kubernetes.OpenAPI.Core as K
import qualified Kubernetes.OpenAPI.Model as K
import Control.Exception.Safe (Exception, MonadThrow, throwM)
import Control.Monad.IO.Class (MonadIO, liftIO)
@@ -32,23 +32,23 @@ import qualified Network.TLS.Extra as TLS
import System.Environment (getEnv)
import System.X509 (getSystemCertificateStore)
-- |Sets the master URI in the 'K.KubernetesConfig'.
-- |Sets the master URI in the 'K.KubernetesClientConfig'.
setMasterURI
:: T.Text -- ^ Master URI
-> K.KubernetesConfig
-> K.KubernetesConfig
-> K.KubernetesClientConfig
-> K.KubernetesClientConfig
setMasterURI server kcfg =
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.
disableValidateAuthMethods :: K.KubernetesConfig -> K.KubernetesConfig
disableValidateAuthMethods :: K.KubernetesClientConfig -> K.KubernetesClientConfig
disableValidateAuthMethods kcfg = kcfg { K.configValidateAuthMethods = False }
-- |Configures the 'K.KubernetesConfig' to use token authentication.
-- |Configures the 'K.KubernetesClientConfig' to use token authentication.
setTokenAuth
:: T.Text -- ^Authentication token
-> K.KubernetesConfig
-> K.KubernetesConfig
-> K.KubernetesClientConfig
-> K.KubernetesClientConfig
setTokenAuth token kcfg = kcfg
{ K.configAuthMethods = [K.AnyAuthMethod (K.AuthApiKeyBearerToken $ "Bearer " <> token)]
}
@@ -124,7 +124,7 @@ loadPEMCerts p = do
serviceAccountDir :: FilePath
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
caStore <- loadPEMCerts $ serviceAccountDir ++ "/ca.crt"
defTlsParams <- liftIO defaultTLSClientParams

View File

@@ -10,6 +10,6 @@ dependencies:
- mtl >=2.2.1
- streaming-bytestring >= 0.1.5 && < 0.2.0
- 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.Streaming.Char8 as Q
import qualified Data.Text as T
import Kubernetes.Core
import Kubernetes.Client
import Kubernetes.MimeTypes
import Kubernetes.Model (Watch(..))
import Kubernetes.OpenAPI.Core
import Kubernetes.OpenAPI.Client
import Kubernetes.OpenAPI.MimeTypes
import Kubernetes.OpenAPI.Model (Watch(..))
import Network.HTTP.Client
data WatchEvent a = WatchEvent
@@ -66,7 +66,7 @@ Launching 'dispatchWatch' with the above we get a stream of endpoints data:
dispatchWatch ::
(HasOptionalParam req Watch, MimeType accept, MimeType contentType) =>
Manager
-> KubernetesConfig
-> KubernetesClientConfig
-> KubernetesRequest req contentType resp accept
-> (Q.ByteString IO () -> IO a)
-> IO a

View File

@@ -1,6 +1,6 @@
name: kubernetes-openapi
name: kubernetes-openapi-client-gen
version: 0.1.0.0
synopsis: Auto-generated kubernetes-openapi API Client
synopsis: Auto-generated kubernetes-openapi-client-gen API Client
description: .
Client library for calling the Kubernetes API based on http-client.
.
@@ -57,7 +57,7 @@ library
, vector >=0.10.9 && <0.13
, katip >=0.4 && < 0.6
other-modules:
Paths_kubernetes_openapi
Paths_kubernetes_openapi_client_gen
exposed-modules:
Kubernetes.OpenAPI
Kubernetes.OpenAPI.API.Admissionregistration
@@ -127,7 +127,7 @@ test-suite tests
tests
ghc-options: -Wall -fno-warn-orphans
build-depends:
kubernetes-openapi
kubernetes-openapi-client-gen
, QuickCheck
, aeson
, base >=4.7 && <5.0

View File

@@ -95,14 +95,14 @@ instance P.Show KubernetesClientConfig where
--
-- configUserAgent:
--
-- @"kubernetes-openapi/0.1.0.0"@
-- @"kubernetes-openapi-client-gen/0.1.0.0"@
--
newConfig :: IO KubernetesClientConfig
newConfig = do
logCxt <- initLogContext
return $ KubernetesClientConfig
{ configHost = "https://localhost"
, configUserAgent = "kubernetes-openapi/0.1.0.0"
, configUserAgent = "kubernetes-openapi-client-gen/0.1.0.0"
, configLogExecWithContext = runDefaultLogExecWithContext
, configLogContext = logCxt
, configAuthMethods = []