createEdgeN :: Label -> Node -> Node -> GS (Edge, Node, Node)
createEdgeN l sn en = createEdgeRE l (nodeId sn) (nodeId en)
createEdgeN :: Label -> Node -> Node -> GS (Edge, Node, Node)
createEdgeN l sn en = createEdgeRE l (nodeId sn) (nodeId en)
createEdgeN l sn en = createEdgeRE l (nodeId sn) (nodeId en)