let add_edge_one_dir g vsrc vdst lbl = let cur = try Node.Hashtbl.find g vsrc with Not_found -> To.empty in let cur = To.add vdst lbl cur in Node.Hashtbl.replace g vsrc cur