Rename numAsWt to more appropriate widenInteger.

[match/match.git] / program / PMDefaults.hs

diff --git a/program/PMDefaults.hs b/program/PMDefaults.hs
index 2f4a687..3504e06 100644 (file)
--- a/program/PMDefaults.hs
+++ b/program/PMDefaults.hs
@@ -53,7 +53,7 @@ marginalVeryBoringCost = \lx -> 1000 + lx*1000,
 
 -- 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,
@@ -75,6 +75,6 @@ topicZipfExponent = -0.5,
 -- 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]
 
 }