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

diff --git a/program/PMInstance.hs b/program/PMInstance.hs
index acb6843..7fac0bb 100644
--- a/program/PMInstance.hs
+++ b/program/PMInstance.hs
@@ -5,7 +5,7 @@ import ArrayStuff
 import Formatter
 
 type Wt = Double -- Can be any RealFrac.
-numAsWt x = fromInteger (toInteger x)
+widenInteger x = fromInteger (toInteger x)
 
 data PMInstance = PMInstance
 	Int                 -- numReviewers
@@ -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