Command-line option to keep test directory

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Run.hs b/src/Run.hs
index 5b0ac2e..f54a38c 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -94,7 +94,7 @@ runTest out opts test = do
     failed <- atomically $ readTVar (teFailed tenv)
     case (res, failed) of
         (Right (), Nothing) -> do
-            removeDirectoryRecursive testDir
+            when (not $ optKeep opts) $ removeDirectoryRecursive testDir
             return True
         _ -> return False