setEdgePropertiesE :: [(Key, Value)] -> Edge -> GS Edge
setEdgePropertiesE kvs e = foldl (\a (k, v) -> a >>= setEdgePropertyE k v) (return e) kvs
setEdgePropertiesE :: [(Key, Value)] -> Edge -> GS Edge
setEdgePropertiesE kvs e = foldl (\a (k, v) -> a >>= setEdgePropertyE k v) (return e) kvs
setEdgePropertiesE kvs e = foldl (\a (k, v) -> a >>= setEdgePropertyE k v) (return e) kvs