Fix a bug in bench that was running the driver on dune generated folders

Signed-off-by: Nathan Rebours <[email protected]>
ocaml-ppx · Feb 1, 2024 · 287cdb2 · 287cdb2
1 parent 0e3b4d4
commit 287cdb2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/bench/bench.ml b/bench/bench.ml
@@ -163,8 +163,11 @@ module Driver_dir = struct
       failwith (Printf.sprintf "failed to find %s in %s" inputs_dir_name path);
     t
 
+  (* This also filters out dot files or folders dune may have added *)
   let inputs t =
-    readdir_full_paths (inputs_path t) |> List.map (fun path -> { Input.path })
+    readdir_full_paths (inputs_path t)
+    |> List.filter (fun path -> (Filename.basename path).[0] <> '.')
+    |> List.map (fun path -> { Input.path })
 
   let benchmarks t =
     let driver = driver t in