suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a type specifier to FlowGraphTest to match the changes to the flow-graph builder

Browse Source
This commit is contained in:
Neil Brown 2007-11-10 19:16:20 +00:00
parent 181f7638c4
commit f050dadaec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/FlowGraphTest.hs
View File

@ -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)