New features from Tuesday call:
[match/match.git] / program / PMConfig.hs
index 7e50fac..fe181fa 100644 (file)
@@ -12,12 +12,14 @@ import IMinCostFlow
 data PMConfig = PMConfig {
        minCostFlow :: MinCostFlowImpl,
        reviewsEachProposal :: Int,
+       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,