Skip to content

Commit

Permalink
Fix a bug in bench that was running the driver on dune generated folders
Browse files Browse the repository at this point in the history
Signed-off-by: Nathan Rebours <[email protected]>
  • Loading branch information
NathanReb committed Feb 9, 2024
1 parent 58b1476 commit dcac2eb
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion bench/bench.ml
Original file line number Diff line number Diff line change
Expand Up @@ -48,9 +48,10 @@ let time_run_blocking program args =
timestamp_after -. timestamp_before

(* Takes the path of a directory and returns a list of the full paths of the
files contained within it *)
files contained within it. Filters dot files and folders. *)
let readdir_full_paths dir =
Sys.readdir dir |> Array.to_list |> List.sort String.compare
|> List.filter (fun path -> path.[0] <> '.')
|> List.map (Filename.concat dir)

module Input = struct
Expand Down

0 comments on commit dcac2eb

Please sign in to comment.