let addNewEdge tree (conn, node, port) = let newTreeEdges = IdtMap.add conn.nameforudg {edge= (conn, node, port); edgeway= Unknown; used= false} tree.treeEdges in {tree with treeEdges = newTreeEdges }