merging hand-written code into one package

Author: guoshimin2

kubeconfig/package.yaml

@@ -6,4 +6,4 @@ dist-newstyle
 cabal.project.local
 .cabal-sandbox
 cabal.sandbox.config
-*.cabal
+*.cabal

kubernetes-client-helper/.gitignore

@@ -1,8 +1,49 @@
-# kubernetes-watch-client
-
-Client for streaming events from watch enabled endpoints.
+# kubernetes-openapi-client
 
 ## Example
+
+```haskell
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import           Data.Function           ((&))
+import qualified Kubernetes.API.CoreV1
+import           Kubernetes.Client       (dispatchMime)
+import           Kubernetes.ClientHelper
+import           Kubernetes.Core         (newConfig)
+import           Kubernetes.MimeTypes    (Accept (..), MimeJSON (..))
+import           Network.TLS             (credentialLoadX509)
+
+main :: IO ()
+main = do
+    -- We need to first create a Kubernetes.Core.KubernetesConfig and a Network.HTTP.Client.Manager.
+    -- Currently we need to construct these objects manually. Work is underway to construct these
+    -- objects automatically from a kubeconfig file. See https://github.com/kubernetes-client/haskell/issues/2.
+    kcfg <-
+        newConfig
+        & fmap (setMasterURI "https://mycluster.example.com")    -- fill in master URI
+        & fmap (setTokenAuth "mytoken")                          -- if using token auth
+        & fmap disableValidateAuthMethods                        -- if using client cert auth
+    myCAStore <- loadPEMCerts "/path/to/ca.crt"                  -- if using custom CA certs
+    myCert    <-                                                 -- if using client cert
+        credentialLoadX509 "/path/to/client.crt" "/path/to/client.key"
+            >>= either error return
+    tlsParams <-
+        defaultTLSClientParams
+        & fmap disableServerNameValidation -- if master address is specified as an IP address
+        & fmap disableServerCertValidation -- if you don't want to validate the server cert at all (insecure)
+        & fmap (setCAStore myCAStore)      -- if using custom CA certs
+        & fmap (setClientCert myCert)      -- if using client cert
+    manager <- newManager tlsParams
+    dispatchMime
+            manager
+            kcfg
+            (Kubernetes.API.CoreV1.listPodForAllNamespaces (Accept MimeJSON))
+        >>= print
+```
+
+## Watch Example
 Following is a simple example which
 just streams to stdout. First some setup - this assumes kubernetes is accessible
 at http://localhost:8001, e.g. after running `kubectl proxy`:

kubernetes-client-helper/README.md

@@ -0,0 +1,39 @@
+name: kubernetes-openapi-client
+version: 0.1.0.0
+description: |
+  This package contains functions for working with kubeconfig files.
+
+  Usage of kubeconfig files are described at https://kubernetes.io/docs/concepts/configuration/organize-cluster-access-kubeconfig/
+library:
+  source-dirs: src
+tests:
+  spec:
+    main: Spec.hs
+    source-dirs: test
+    dependencies:
+      - kubernetes-openapi-client
+      - hspec
+      - yaml
+extra-source-files:
+  - test/testdata/*
+dependencies:
+  - base >=4.7 && <5.0
+  - bytestring >=0.10.0 && <0.11
+  - aeson >=1.0 && <2.0
+  - connection
+  - containers
+  - data-default-class
+  - http-client >=0.5 && <0.6
+  - http-client-tls
+  - kubernetes-openapi-client-gen == 0.1.0.0
+  - microlens >= 0.4.3 && <0.5
+  - mtl >=2.2.1
+  - pem
+  - safe-exceptions <0.2
+  - streaming-bytestring >= 0.1.5 && < 0.2.0
+  - text >=0.11 && <1.3
+  - tls
+  - x509
+  - x509-system
+  - x509-store
+  - x509-validation