augment -base

augmentGraph :: (DynGraph gr, Num b, Ord b) => gr a b -> gr a (b, b, b)
fgl Data.Graph.Inductive.Query.MaxFlow
> i 0 > For each edge a--->b insert into graph the edge a<---b . Then change the > i (i,0,i) > label of every edge from a---->b to a------->b