Something went wrong. Try again.
In-memory resources for Eio
Something went wrong. Try again.
12345678910111213141516171819let ( / ) = Eio.Path.( / )
let filter v = let p = Eio.Path.native_exn v |> String.split_on_char '/' |> List.filter (fun s -> not (String.equal "" s)) in not @@ List.exists (function "_build" | ".git" -> true | _ -> false) p
let () = Eio_main.run @@ fun env -> Eio_mem.run @@ fun mem_env -> let cwd = Eio.Stdenv.cwd env in Eio_mem.Fs.load ~filter cwd; let cwd = Eio.Stdenv.cwd mem_env in Eio.traceln "The following filesystem has been loaded into memory: %a..." Eio.Path.pp cwd; Eio_mem.Fs.tree ~depth:3 Fmt.stdout cwd