From 608336fbd4b02b668c08ee0e3e43fcce3277807f Mon Sep 17 00:00:00 2001 From: thomasjm Date: Sun, 28 Jul 2024 07:28:26 -0700 Subject: [PATCH] Add back debug statement for minikube image load command --- .../Kubernetes/MinikubeCluster/Images.hs | 17 ++++++++++------- 1 file changed, 10 insertions(+), 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 index 27348671..2bba309f 100644 --- 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