Fix Temp.clear_dir

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Sep 3, 2020 · 1c0dcdd · 1c0dcdd
1 parent fef8287
commit 1c0dcdd
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/stdune/temp.ml b/src/stdune/temp.ml
@@ -85,7 +85,10 @@ let clear_dir dir =
   let remove_from_set ~set =
     set :=
       Path.Set.filter !set ~f:(fun f ->
-          (not (Path.equal f dir)) && Path.is_descendant ~of_:dir f)
+          let removed =
+            (not (Path.equal f dir)) && Path.is_descendant ~of_:dir f
+          in
+          not removed)
   in
   remove_from_set ~set:tmp_files;
   remove_from_set ~set:tmp_dirs