edgeLabel :: Id -> GS Label
edgeLabel i = getEdgeByIdUnsafe i >>= edgeLabelE
edgeLabel :: Id -> GS Label
edgeLabel i = getEdgeByIdUnsafe i >>= edgeLabelE
edgeLabel i = getEdgeByIdUnsafe i >>= edgeLabelE