setEdgeProperty :: Key -> Value -> Id -> GS Edge
setEdgeProperty k v i = getEdgeByIdUnsafe i >>= setEdgePropertyE k v
setEdgeProperty :: Key -> Value -> Id -> GS Edge
setEdgeProperty k v i = getEdgeByIdUnsafe i >>= setEdgePropertyE k v
setEdgeProperty k v i = getEdgeByIdUnsafe i >>= setEdgePropertyE k v