X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/59fcd59d9dc1b4b223f828af13587344326697f0..bc14b3b3a9345cb74bc7d8f3808a1d8cdd0bf479:/program/ProposalMatcher.hs

diff --git a/program/ProposalMatcher.hs b/program/ProposalMatcher.hs
index 2f5f63f..96c2c32 100644
--- a/program/ProposalMatcher.hs
+++ b/program/ProposalMatcher.hs
@@ -5,24 +5,7 @@ import Data.Graph.Inductive.Tree
 import Data.List
 
 import PMInstance
-import IMinCostFlow
-
-data PMConfig = PMConfig {
-	minCostFlow :: MinCostFlowImpl,
-	reviewsEachProposal :: Int,
-	prefIsExpert :: Wt -> Bool,
-	prefIsKnowledgeable :: Wt -> Bool,
-	prefIsBoring :: Wt -> Bool,
-	prefIsVeryBoring :: Wt -> Bool,
-	prefIsConflict :: Wt -> Bool,
-	loadTolerance :: Int,
-	marginalLoadCost :: Wt -> Wt,
-	marginalBoringCost :: Wt -> Wt,
-	marginalVeryBoringCost :: Wt -> Wt,
-	assignmentCost :: Wt -> Wt,
-	knowledgeableBonus :: Wt,
-	expertBonus :: Wt
-}
+import PMConfig
 
 prefBoringness cfg p = if prefIsVeryBoring cfg p then 2
 	else if prefIsBoring cfg p then 1 else 0