let ( / ) = 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