From 9ecd6424ffbf1305e7344b99517c4fbb04b26df2 Mon Sep 17 00:00:00 2001 From: Matt McCutchen Date: Mon, 7 Jul 2008 19:30:05 -0400 Subject: [PATCH] Fix bug in second-pass graph construction when a proposal got more than one expert review. --- program/ProposalMatch.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/program/ProposalMatch.hs b/program/ProposalMatch.hs index 0cddc9b..07cb710 100644 --- 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 -- 2.34.1