Fix bug in second-pass graph construction when a proposal got more than one expert...

diff --git a/program/ProposalMatch.hs b/program/ProposalMatch.hs
index 0cddc9b..07cb710 100644 (file)
--- a/program/ProposalMatch.hs
+++ b/program/ProposalMatch.hs
@@ -62,7 +62,7 @@ doMatching inst@(Instance numRvrs numProps prefF) =
                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