From a4102f33d5429e4b4534b7a67b03b0ad875ab14b Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Wed, 8 Nov 2023 14:39:22 +0000 Subject: [PATCH] debug --- cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs b/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs index e1a7125067b..e25216022a2 100644 --- a/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs +++ b/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs @@ -1,7 +1,7 @@ import Test.Cabal.Prelude import qualified System.Process as Process import Control.Concurrent (threadDelay) -import System.Directory (removeFile, canonicalizePath) +import System.Directory (removeFile, canonicalizePath, listDirectory) import Control.Exception (catch, throwIO) import System.IO.Error (isDoesNotExistError) import qualified Data.Time.Clock as Time @@ -14,6 +14,7 @@ main = do res <- cabalWithStdin "v2-build" ["all"] "" rel_exe_path <- withPlan $ planExePath "setup-test" "cabal-aaaa" exe_path <- liftIO $ canonicalizePath rel_exe_path + liftIO $ listDirectory (takeDirectory exe_path) >>= print env <- getTestEnv path <- liftIO $ getEnv "PATH" let newpath = takeDirectory exe_path ++ ":" ++ path