in
let graph1 = doReduction inst (const (fromInteger wantExpertReviews)) in
let flow1 = flowDiff graph1 (snd (umcf source sink graph1)) in
- let expertCapF j = outdeg flow1 (propNode j True) in
+ let expertCapF j = min (fromInteger wantExpertReviews) (outdeg flow1 (propNode j True)) in
let graph2 = doReduction inst expertCapF in
let flow2 = flowDiff graph2 (snd (umcf source sink graph2)) in
let pairs = do