X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/00819c1910f1e9bdad75fc2740792e867d517d58..e95df3f5aa9099829c63bab4a5c5ea96808edeb0:/program/ProposalMatcher.hs?ds=sidebyside

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