isEdgePropertyEqual :: Key -> Value -> Id -> GS Bool
isEdgePropertyEqual k v i = getEdgeByIdUnsafe i >>= isEdgePropertyEqualE k v
isEdgePropertyEqual :: Key -> Value -> Id -> GS Bool
isEdgePropertyEqual k v i = getEdgeByIdUnsafe i >>= isEdgePropertyEqualE k v
isEdgePropertyEqual k v i = getEdgeByIdUnsafe i >>= isEdgePropertyEqualE k v