open Eio

let rename_lax rename_op fromdir todir =
  if not @@ Path.is_directory todir then rename_op fromdir todir else
  Fiber.List.iter (fun it ->
    let fromfile = Path.(fromdir / it)
    and tofile = Path.(todir / it) in
    rename_op fromfile tofile
  ) (Path.read_dir fromdir)