Typo fix

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

diff --git a/program/PMInstance.hs b/program/PMInstance.hs
index aba03b2..c3158bf 100644 (file)
--- a/program/PMInstance.hs
+++ b/program/PMInstance.hs
@@ -15,7 +15,11 @@ data PMInstance = PMInstance {
        pmiNumProposals :: Int,
        pmiRLoad :: UArray Int Wt,
        pmiRPPref :: UArray (Int, Int) Wt, -- preference: -100 (COI), -99 to 100
-       pmiRPExp :: UArray (Int, Int) Wt -- expertise: 0 to 3
+       pmiRPExp :: UArray (Int, Int) Wt, -- expertise: 0 to 3
+       -- New 2011-07-19
+       -- Should we "jam" all three values that are functions of (i, j)?
+       pmiRPFix :: UArray (Int, Int) Bool,
+       pmiPNumReviews :: UArray Int Int
 }
 
 -- Let us shoehorn in the new pref scale.