let remove_edge_one_dir g vsrc vdst = try let cur = Node.Hashtbl.find g vsrc in let cur = To.remove vdst cur in Node.Hashtbl.replace g vsrc cur with Not_found -> ()