-- Cost to make a review. Used by the evaluator too.
-- I'm using quadratic cost functions as a first attempt.
-assignmentCost = \pref -> (numAsWt 10 + pref) ^ 2,
+assignmentCost = \pref -> (widenInteger 10 + pref) ^ 2,
-- Bonus for a first knowledgeable or expert review.
knowledgeableBonus = 1000,
-- its "unhappiness". Default is [reviewsEachProposal, ..., 1] since it's most
-- important for the best review to be good.
reviewEvalWeights = let rep = reviewsEachProposal pmDefaults in
- map numAsWt [rep, rep-1 .. 1]
+ map widenInteger [rep, rep-1 .. 1]
}