import Formatter
type Wt = Double -- Can be any RealFrac.
-numAsWt x = fromInteger (toInteger x)
+widenInteger x = fromInteger (toInteger x)
data PMInstance = PMInstance
Int -- numReviewers
map (\j -> ("P#" ++ show j) : map (\i -> show (prefA ! (i, j))) theRvrs) theProps
)
-type PMatching = [(Int, Int)]
-
\ No newline at end of file
+newtype PMatching = PMatching [(Int, Int)]
+ deriving Show