fix README. re-export modules. add example

Author: guoshimin2

kubernetes-openapi-client/README.md

@@ -7,13 +7,18 @@
 
 module Main where
 
-import           Data.Function           ((&))
-import qualified Kubernetes.OpenAPI.API.CoreV1
-import           Kubernetes.OpenAPI.Client       (dispatchMime)
-import           Kubernetes.OpenAPI.ClientHelper
-import           Kubernetes.OpenAPI.Core         (newConfig)
-import           Kubernetes.OpenAPI.MimeTypes    (Accept (..), MimeJSON (..))
-import           Network.TLS             (credentialLoadX509)
+import           Data.Function                 ((&))
+import           Kubernetes.Client             (defaultTLSClientParams,
+                                                disableServerCertValidation,
+                                                disableServerNameValidation,
+                                                disableValidateAuthMethods,
+                                                loadPEMCerts, newManager,
+                                                setCAStore, setClientCert,
+                                                setMasterURI, setTokenAuth)
+import           Kubernetes.OpenAPI            (Accept (..), MimeJSON (..),
+                                                dispatchMime, newConfig)
+import qualified Kubernetes.OpenAPI.API.CoreV1 as CoreV1
+import           Network.TLS                   (credentialLoadX509)
 
 main :: IO ()
 main = do
@@ -39,7 +44,7 @@ main = do
     dispatchMime
             manager
             kcfg
-            (Kubernetes.OpenAPI.API.CoreV1.listPodForAllNamespaces (Accept MimeJSON))
+            (CoreV1.listPodForAllNamespaces (Accept MimeJSON))
         >>= print
 ```
 

kubernetes-openapi-client/example/App.hs

@@ -0,0 +1,43 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import           Data.Function                 ((&))
+import           Kubernetes.Client             (defaultTLSClientParams,
+                                                disableServerCertValidation,
+                                                disableServerNameValidation,
+                                                disableValidateAuthMethods,
+                                                loadPEMCerts, newManager,
+                                                setCAStore, setClientCert,
+                                                setMasterURI, setTokenAuth)
+import           Kubernetes.OpenAPI            (Accept (..), MimeJSON (..),
+                                                dispatchMime, newConfig)
+import qualified Kubernetes.OpenAPI.API.CoreV1 as CoreV1
+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
+            (CoreV1.listPodForAllNamespaces (Accept MimeJSON))
+        >>= print

kubernetes-openapi-client/package.yaml

@@ -37,3 +37,9 @@ dependencies:
   - x509-system
   - x509-store
   - x509-validation
+executables:
+  example:
+    main: App.hs
+    source-dirs: example
+    dependencies:
+      - kubernetes-openapi-client

kubernetes-openapi-client/src/Kubernetes/Client.hs

@@ -0,0 +1,9 @@
+module Kubernetes.Client
+  ( module Kubernetes.Client.Config
+  , module Kubernetes.Client.KubeConfig
+  , module Kubernetes.Client.Watch
+  ) where
+
+import           Kubernetes.Client.Config
+import           Kubernetes.Client.KubeConfig
+import           Kubernetes.Client.Watch