X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/96fe6497f12c2bfcb3988070197d1876f52237cf..e95df3f5aa9099829c63bab4a5c5ea96808edeb0:/program/ProposalMatcher.hs

diff --git a/program/ProposalMatcher.hs b/program/ProposalMatcher.hs
index d435d67..dcc757a 100644
--- a/program/ProposalMatcher.hs
+++ b/program/ProposalMatcher.hs
@@ -112,4 +112,4 @@ doMatching cfg inst@(PMInstance numRvrs numProps _ _) =
 			then [(i, j)]
 			else []
 		in
-	sort pairs -- for prettiness
+	PMatching (sort pairs) -- for prettiness