debug

haskell · Nov 8, 2023 · a4102f3 · a4102f3
1 parent be88709
commit a4102f3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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