Matt McCutchen's Web Site
/
match
/
match.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
affb6e6
)
Fix bug in second-pass graph construction when a proposal got more than one expert...
author
Matt McCutchen
<matt@mattmccutchen.net>
Mon, 7 Jul 2008 23:30:05 +0000
(19:30 -0400)
committer
Matt McCutchen
<matt@mattmccutchen.net>
Mon, 7 Jul 2008 23:30:05 +0000
(19:30 -0400)
program/ProposalMatch.hs
patch
|
blob
|
blame
|
history
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