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