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

diff --git a/program/PMInstance.hs b/program/PMInstance.hs
index 70d7529..7fac0bb 100644
--- a/program/PMInstance.hs
+++ b/program/PMInstance.hs
@@ -23,4 +23,5 @@ instance Show PMInstance where
 			map (\j -> ("P#" ++ show j) : map (\i -> show (prefA ! (i, j))) theRvrs) theProps
 		)
 
-type PMatching = [(Int, Int)]
+newtype PMatching = PMatching [(Int, Int)]
+	deriving Show