Fix seaweedfs test build

codedownio · Aug 1, 2024 · 5682a11 · 5682a11
1 parent 889bfe6
commit 5682a11
Showing 1 changed file with 11 additions and 10 deletions.
diff --git a/demos/demo-kubernetes-seaweedfs/app/Main.hs b/demos/demo-kubernetes-seaweedfs/app/Main.hs
@@ -30,17 +30,18 @@ import UnliftIO.Process
 
 spec :: TopSpec
 spec = describe "Introducing a Kubernetes cluster" $ do
-  describe "Via Minikube" $ do
-    introduceNixContext nixpkgsReleaseDefault $ do
-      introduceMinikubeClusterViaNix defaultMinikubeClusterOptions $ do
-        it "prints the cluster info" $ do
-          kcc <- getContext kubernetesCluster
-          info [i|Got Kubernetes cluster context: #{kcc}|]
+  describe "Via Minikube" $
+    introduceNixContext nixpkgsReleaseDefault $
+    introduceBinaryViaNixPackage @"kubectl" "kubectl" $
+    introduceMinikubeClusterViaNix defaultMinikubeClusterOptions $ do
+      it "prints the cluster info" $ do
+        kcc <- getContext kubernetesCluster
+        info [i|Got Kubernetes cluster context: #{kcc}|]
 
-        withKubernetesNamespace "foo" $ introduceSeaweedFS "foo" defaultSeaweedFSOptions $ do
-          it "Has a SeaweedFS context" $ do
-            sfs <- getContext seaweedFs
-            info [i|Got SeaweedFS context: #{sfs}|]
+      withKubernetesNamespace "foo" $ introduceSeaweedFS "foo" defaultSeaweedFSOptions $ do
+        it "Has a SeaweedFS context" $ do
+          sfs <- getContext seaweedFs
+          info [i|Got SeaweedFS context: #{sfs}|]
 
 
 main :: IO ()