Add back debug statement for minikube image load command

codedownio · Jul 28, 2024 · 608336f · 608336f
1 parent a6db7ac
commit 608336f
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/sandwich-contexts-kubernetes/lib/Test/Sandwich/Contexts/Kubernetes/MinikubeCluster/Images.hs b/sandwich-contexts-kubernetes/lib/Test/Sandwich/Contexts/Kubernetes/MinikubeCluster/Images.hs
@@ -71,13 +71,16 @@ loadImage minikubeBinary clusterName minikubeFlags image = do
                          True -> ["--rootless"]
                          False -> []
 
-      createProcessWithLogging (
-        proc minikubeBinary (["image", "load", toLoad
-                             , "--profile", toString clusterName
-                             , "--logtostderr=true", "--v=2"
-                             , "--daemon=true"
-                             ] <> extraFlags)
-        ) >>= waitForProcess >>= (`shouldBe` ExitSuccess)
+      let args = ["image", "load", toLoad
+                 , "--profile", toString clusterName
+                 , "--logtostderr=true", "--v=2"
+                 , "--daemon=true"
+                 ] <> extraFlags
+
+      debug [i|#{minikubeBinary} #{T.unwords $ fmap toText args}|]
+
+      createProcessWithLogging (proc minikubeBinary args)
+        >>= waitForProcess >>= (`shouldBe` ExitSuccess)
 
 getLoadedImages :: (MonadUnliftIO m, MonadLogger m) => FilePath -> Text -> [Text] -> m (Set Text)
 getLoadedImages minikubeBinary clusterName minikubeFlags = do