Skip to content

Commit d367033

Browse files
committed
only do typechecking
1 parent e9c530b commit d367033

File tree

1 file changed

+5
-2
lines changed
  • kubernetes-client/example

1 file changed

+5
-2
lines changed

kubernetes-client/example/App.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -15,8 +15,8 @@ import Kubernetes.OpenAPI (Accept (..), MimeJSON (..),
1515
import qualified Kubernetes.OpenAPI.API.CoreV1 as CoreV1
1616
import Network.TLS (credentialLoadX509)
1717

18-
main :: IO ()
19-
main = do
18+
example :: IO ()
19+
example = do
2020
-- We need to first create a Kubernetes.Core.KubernetesConfig and a Network.HTTP.Client.Manager.
2121
-- Currently we need to construct these objects manually. Work is underway to construct these
2222
-- objects automatically from a kubeconfig file. See https://github.com/kubernetes-client/haskell/issues/2.
@@ -41,3 +41,6 @@ main = do
4141
kcfg
4242
(CoreV1.listPodForAllNamespaces (Accept MimeJSON))
4343
>>= print
44+
45+
main :: IO ()
46+
main = return ()

0 commit comments

Comments
 (0)