setEdgeProperties :: [(Key, Value)] -> Id -> GS Edge
setEdgeProperties kvs i = getEdgeByIdUnsafe i >>= setEdgePropertiesE kvs
setEdgeProperties :: [(Key, Value)] -> Id -> GS Edge
setEdgeProperties kvs i = getEdgeByIdUnsafe i >>= setEdgePropertiesE kvs
setEdgeProperties kvs i = getEdgeByIdUnsafe i >>= setEdgePropertiesE kvs