make --keep-failures show full path to test repo

Otherwise, had to guess which of several subdirectories was the right
one.

diff --git a/Test/Framework.hs b/Test/Framework.hs
index 35a29d6beec45e1fdcbb0c6d2c5c5564523a6918..7ebf3f3f25ee4bf877c5379cda1309a5ade7ed5a 100644 (file)
--- 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