Adaptation for POPL 2012.

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

diff --git a/program/Evaluation.hs b/program/Evaluation.hs
index 032a1a9..201f176 100644 (file)
--- a/program/Evaluation.hs
+++ b/program/Evaluation.hs
@@ -9,8 +9,10 @@ import ArrayStuff
 
 type MatchingEvaluation = Array Int Wt
 
+-- FIXME this is not really ported to separate preference and expertise
+
 evaluateMatching :: PMConfig -> PMInstance -> PMatching -> MatchingEvaluation
-evaluateMatching cfg inst@(PMInstance numRvrs numProps rloadA prefA) matching =
+evaluateMatching cfg inst@(PMInstance numRvrs numProps rloadA prefA _) (PMatching matching) =
        let reviewersByProposal = accumArray (flip (:)) []
                (0, numProps-1) $ map (\(i,j) -> (j,i)) matching
                :: Array Int [Int] in