hasEdgeLabel :: Label -> Id -> GS Bool
hasEdgeLabel l i = getEdgeByIdUnsafe i >>= hasEdgeLabelE l
hasEdgeLabel :: Label -> Id -> GS Bool
hasEdgeLabel l i = getEdgeByIdUnsafe i >>= hasEdgeLabelE l
hasEdgeLabel l i = getEdgeByIdUnsafe i >>= hasEdgeLabelE l