X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/8c5ee850714e315aabbdcd173728e60811206b2c..05a6f0edaacc70ab373988ec4bafdf9963551004:/program/TestUtils.hs

diff --git a/program/TestUtils.hs b/program/TestUtils.hs
index f2dbe11..da68cf4 100644
--- a/program/TestUtils.hs
+++ b/program/TestUtils.hs
@@ -9,7 +9,7 @@ import System.Random
 import System.Posix.IO
 import System.Posix.Time
 import System.Process
-import Instance
+import PMInstance
 import ProposalMatcher
 import MonadStuff
 
@@ -27,8 +27,8 @@ flowAnnotate g fa =
 	mkGraph (labNodes g) (map (\(n1, n2, REdge i ca co) ->
 		(n1, n2, REdgeF i ca (fa ! i) co)) $ labEdges g) :: Gr () REdgeF
 
-showInstanceAsGraph :: Instance -> [(Int, Int)] -> Gr String String
-showInstanceAsGraph (Instance numRvrs numProps rloadA prefA) matchedPairs =
+showInstanceAsGraph :: PMInstance -> PMatching -> Gr String String
+showInstanceAsGraph (PMInstance numRvrs numProps rloadA prefA) matchedPairs =
 	let
 		rvrNode i = i
 		propNode j = numRvrs + j