From 5682a11247d11dc89a5b14ae641db5f797b226b7 Mon Sep 17 00:00:00 2001
From: thomasjm <tom@codedown.io>
Date: Wed, 31 Jul 2024 17:46:44 -0700
Subject: [PATCH] Fix seaweedfs test build

---
 demos/demo-kubernetes-seaweedfs/app/Main.hs | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/demos/demo-kubernetes-seaweedfs/app/Main.hs b/demos/demo-kubernetes-seaweedfs/app/Main.hs
index 220e03ae..b1ce714c 100644
--- 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 ()