New features from Tuesday call:

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

diff --git a/program/PMConfig.hs b/program/PMConfig.hs
index ecbe1cb..fe181fa 100644 (file)
--- a/program/PMConfig.hs
+++ b/program/PMConfig.hs
@@ -12,12 +12,14 @@ import IMinCostFlow
 data PMConfig = PMConfig {
        minCostFlow :: MinCostFlowImpl,
        reviewsEachProposal :: Int,
-       prefIsExpert :: Wt -> Bool,
-       prefIsKnowledgeable :: Wt -> Bool,
+       pcReviewsEachProposal :: Int,
+       expIsExpert :: Wt -> Bool,
+       expIsKnowledgeable :: Wt -> Bool,
        prefIsBoring :: Wt -> Bool,
        prefIsVeryBoring :: Wt -> Bool,
        prefIsConflict :: Wt -> Bool,
        loadTolerance :: Int,
+       ercLoadTolerance :: Int,
        marginalLoadCost :: Wt -> Wt,
        marginalBoringCost :: Wt -> Wt,
        marginalVeryBoringCost :: Wt -> Wt,
@@ -25,5 +27,6 @@ data PMConfig = PMConfig {
        knowledgeableBonus :: Wt,
        expertBonus :: Wt,
        numTopics :: Int,
-       topicZipfExponent :: Wt
+       topicZipfExponent :: Wt,
+       reviewEvalWeights :: [Wt]
 }