From 65a1cf54ce1b652e78e4fd2e29bdbdb4ae7e819e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 21 Jul 2025 12:51:57 -0400 Subject: [PATCH] make --keep-failures show full path to test repo Otherwise, had to guess which of several subdirectories was the right one. --- Test/Framework.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Test/Framework.hs b/Test/Framework.hs index 35a29d6bee..7ebf3f3f25 100644 --- a/Test/Framework.hs +++ b/Test/Framework.hs @@ -196,8 +196,10 @@ withtmpclonerepo' cfg a = do case r of Right () -> return () Left e -> do - whenM (keepFailuresOption . testOptions <$> getTestMode) $ - putStrLn $ "** Preserving repo for failure analysis in " ++ clone + whenM (keepFailuresOption . testOptions <$> getTestMode) $ do + topdir <- Utility.Env.getEnvDefault "TOPDIR" "" + putStrLn $ "** Preserving repo for failure analysis in " ++ + fromOsPath (toOsPath topdir toOsPath clone) throwM e disconnectOrigin :: Assertion