X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/00819c1910f1e9bdad75fc2740792e867d517d58..e95df3f5aa9099829c63bab4a5c5ea96808edeb0:/program/Evaluation.hs

diff --git a/program/Evaluation.hs b/program/Evaluation.hs
index 032a1a9..f69668d 100644
--- 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