From f050dadaecd51d80f53838d2c8718a6bc92e98e5 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 10 Nov 2007 19:16:20 +0000 Subject: [PATCH] Added a type specifier to FlowGraphTest to match the changes to the flow-graph builder --- common/FlowGraphTest.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/common/FlowGraphTest.hs b/common/FlowGraphTest.hs index 0682892..8f58782 100644 --- a/common/FlowGraphTest.hs +++ b/common/FlowGraphTest.hs @@ -92,7 +92,7 @@ testGraph testName nodes edges proc = TestCase $ case evalState (buildFlowGraph testOps (A.OnlyP emptyMeta proc)) Map.empty of Left err -> assertFailure (testName ++ " graph building failed: " ++ err) - Right g -> checkGraphEquality (nodes, edges) g + Right g -> checkGraphEquality (nodes, edges) (g :: FlowGraph Identity Int) where -- Checks two graphs are equal by creating a node mapping from the expected graph to the real map (checkNodeEquality), -- then mapping the edges across (transformEdge) and checking everything is right (in checkGraphEquality)