let reparent path_src path_dst path =
    let path_relative =
      make_relative path_src path
    in
    make_absolute path_dst path_relative