Fix mistake in new capacities for paper-side gadget.

diff --git a/program/ProposalMatcher.hs b/program/ProposalMatcher.hs
index c82855e..15e551d 100644 (file)
--- a/program/ProposalMatcher.hs
+++ b/program/ProposalMatcher.hs
@@ -134,8 +134,8 @@ doReduction cfg (PMInstance numRvrs numProps rloadA prefA expA fixA pnrA) =
                                        let edgeH1 = (propNode j 1, sink, REdge undefined (numReviews - numPCReviews) 0)
                                        -- "Designated PC" with knowledgeable bonus
                                        let edgeGFirst = (propNode j 6, propNode j 3, REdge undefined 1 (-(knowledgeableBonus cfg)))
-                                       let edgeGRest = (propNode j 6, propNode j 3, REdge undefined (numPCReviews - 2) 0)
-                                       let edgeH = (propNode j 3, sink, REdge undefined (numPCReviews - 1) 0)
+                                       let edgeGRest = (propNode j 6, propNode j 3, REdge undefined (numPCReviews - 1) 0)
+                                       let edgeH = (propNode j 3, sink, REdge undefined (numPCReviews) 0)
                                        edgesP ++ edgesR ++ [edgeF, edgeH1, edgeGFirst, edgeGRest, edgeH]
                theNodes = [(x, ()) | x <- [0 .. numNodes - 1]]
                -- Index the non-D edges