X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/56b565b1cacf3f74041f42fcdd95eac95352c3cf..e5c5cbd9d48ecf8de5e7b0c20d7164b4b7bf340b:/program/PMInstanceGenerator.hs

diff --git a/program/PMInstanceGenerator.hs b/program/PMInstanceGenerator.hs
index 47a5ce4..9cafacd 100644
--- a/program/PMInstanceGenerator.hs
+++ b/program/PMInstanceGenerator.hs
@@ -80,4 +80,7 @@ randomInstance cfg numRvrs numProps = do
 				PTopic2 jt1 jt2 -> 1 + ((iTE ! jt1)
 					+ (iTE ! jt2)) / 2
 		in topicExp)
-	return $ PMInstance numRvrs numProps loadA prefA expA
+	-- defaults
+	let fixA = constArray ((0,0), (numRvrs-1,numProps-1)) False
+	let pnrA = constArray (0, numProps-1) (reviewsEachProposal cfg)
+	return $ PMInstance numRvrs numProps loadA prefA expA fixA pnrA