X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/066d7f5355c79a94b6d3a6fb2008e0a506b289c7..8c5ee850714e315aabbdcd173728e60811206b2c:/program/Instance.hs

diff --git a/program/Instance.hs b/program/Instance.hs
index 384666f..145a8f3 100644
--- a/program/Instance.hs
+++ b/program/Instance.hs
@@ -1,10 +1,12 @@
-module Instance (module Instance, Wt) where
-import ProposalMatcherConfig (Wt)
+module Instance where
 import Data.Array.IArray
 import Data.Array.Unboxed
 import ArrayStuff
 import Formatter
 
+type Wt = Double -- Can be any RealFrac.
+numAsWt x = fromInteger (toInteger x)
+
 data Instance = Instance
 	Int                 -- numReviewers
 	Int                 -- numProposals