- Implement CS2 min-cost-flow adaptor and generalize common min-cost-flow stuff

[match/match.git] / program / Instance.hs

diff --git a/program/Instance.hs b/program/Instance.hs
index 07841e3..384666f 100644 (file)
--- a/program/Instance.hs
+++ b/program/Instance.hs
@@ -1,11 +1,10 @@
-module Instance where
+module Instance (module Instance, Wt) where
+import ProposalMatcherConfig (Wt)
 import Data.Array.IArray
 import Data.Array.Unboxed
 import ArrayStuff
 import Formatter
 
-type Wt = Double -- must implement RealFrac
-
 data Instance = Instance
        Int                 -- numReviewers
        Int                 -- numProposals