X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/00f7bf547ecc8b9a709c6fbeff55b9b0d05ecffe..fd0d2377785ca843a46b0050a7351dac82c84777:/program/InstanceGenerator.hs

diff --git a/program/InstanceGenerator.hs b/program/InstanceGenerator.hs
index 23b20a1..ab56d5f 100644
--- a/program/InstanceGenerator.hs
+++ b/program/InstanceGenerator.hs
@@ -65,6 +65,7 @@ randomInstance numRvrs numProps = do
 			jj = proposalInfos ! j
 			topicPref = case fst jj of
 				PTopic1 t1 -> expertnessToPref (ii ! t1)
-				PTopic2 t1 t2 -> (expertnessToPref (ii ! t1) + expertnessToPref (ii ! t2)) / 2
+				PTopic2 t1 t2 -> (expertnessToPref (ii ! t1)
+					+ expertnessToPref (ii ! t2)) / 2
 		in topicPref * snd jj - 4)
 	return $ Instance numRvrs numProps loadA prefA