diff --git a/src/eio/glob_eio.ml b/src/eio/glob_eio.ml index 2977432..999482c 100644 --- a/src/eio/glob_eio.ml +++ b/src/eio/glob_eio.ml @@ -14,12 +14,8 @@ let matches ?options t path = let glob ?options t fs = let path, cs = Glob.split t in - Eio.traceln "Path is %a %s" Eio.Path.pp fs (path :> string); let full_path = fs / (path :> string) in Eio.Path.with_open_dir full_path @@ fun dir -> - Eio.traceln "Files from inner dir %a" - Fmt.(list ~sep:comma string) - (Eio.Path.read_dir dir); Eio.Path.read_dir dir |> List.filter (fun f -> Glob.matches ?options (Glob.of_components cs) (Glob.path_of_string f)) diff --git a/test/test_eio.ml b/test/test_eio.ml index eb46466..1b2b7ba 100644 --- a/test/test_eio.ml +++ b/test/test_eio.ml @@ -33,7 +33,6 @@ let test_glob cwd () = in with_dir cwd fs @@ fun dir -> let glob = Glob.of_string (Fmt.str "./%s/root/*.txt" dir) |> Result.get_ok in - Eio.traceln "Files %a" Fmt.(list ~sep:comma string) (Eio.Path.read_dir cwd); let files = glob_eio glob cwd in Alcotest.(check (list string)) "same files" @@ -46,7 +45,6 @@ let test_glob2 cwd () = in with_dir cwd fs @@ fun dir -> Eio.Path.with_open_dir (cwd / dir / "root") @@ fun d -> - Eio.traceln "List %a" Fmt.(list string) (Eio.Path.read_dir d); let glob = Glob.of_string "*.txt" |> Result.get_ok in let files = glob_eio glob d in Alcotest.(check (list string)) "same files" [ "hello.txt"; "world.txt" ] files