Make PMatching a newtype for clarity.

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

diff --git a/program/Evaluation.hs b/program/Evaluation.hs
index 032a1a9..f69668d 100644 (file)
--- a/program/Evaluation.hs
+++ b/program/Evaluation.hs
@@ -10,7 +10,7 @@ import ArrayStuff
 type MatchingEvaluation = Array Int Wt
 
 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