createEdgeRE :: Label -> Id -> Id -> GS (Edge, Node, Node)
createEdgeRE l snid enid = do sn <- getNodeByIdUnsafe snid
                              en <- getNodeByIdUnsafe enid
                              createEdgeNUnsafe l sn en
createEdgeRE :: Label -> Id -> Id -> GS (Edge, Node, Node)
createEdgeRE l snid enid = do sn <- getNodeByIdUnsafe snid
                              en <- getNodeByIdUnsafe enid
                              createEdgeNUnsafe l sn en
createEdgeRE l snid enid = do sn <- getNodeByIdUnsafe snid
                              en <- getNodeByIdUnsafe enid
                              createEdgeNUnsafe l sn en