From a417708cda2f558221a02f883031e7be42038b18 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 4 Jun 2008 18:32:16 +0000 Subject: [PATCH] Fixed some of the flow graph tests that were broken by the change to Rep --- flow/FlowGraphTest.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/flow/FlowGraphTest.hs b/flow/FlowGraphTest.hs index 0ae1e64..f97a81a 100644 --- a/flow/FlowGraphTest.hs +++ b/flow/FlowGraphTest.hs @@ -118,7 +118,7 @@ testGraph' :: String -> [(Int, Meta)] -> [Int] -> [(Int, Int, EdgeLabel)] -> A.A testGraph' testName nodes roots edges str = testGraphF testName nodes roots edges (buildFlowGraph testOps str) testOps :: GraphLabelFuncs (State (Map.Map Meta Int)) Int -testOps = GLF nextId nextId nextId nextId nextId nextId nextId (nextId' 100) (nextId' 100) +testOps = GLF nextId nextId nextId nextId nextId nextId (nextId . snd) (nextId' 100) (nextId' 100) testGraphF :: Data structType => String -> [(Int, Meta)] -> [Int] -> [(Int, Int, EdgeLabel)] -> State (Map.Map Meta Int) (Either String (FlowGraph' Identity Int structType, [Node], [Node])) -> Test