Changeset 42 in code for trunk/lib/file_store.ml

Timestamp:

Dec 15, 2022, 9:25:18 PM (2 years ago)

Author:

fox

Message:

Preliminary support for cross-domain references

File:

• trunk/lib/file_store.ml (modified) (1 diff)

trunk/lib/file_store.ml

@@ -70 +70 @@
         let expand_dir d = Array.(to_list @@ map (Filename.concat d) (Sys.readdir d)) in
         let rec loop result = function
-                | f::fs when valid_dir f -> expand_dir f |> List.append fs |> loop result
+                | f::fs when valid_dir f -> prerr_endline f; expand_dir f |> List.append fs |> loop result
                 | f::fs -> loop (f::result) fs
                 | [] -> result in