X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FDigraph.lhs;h=2ed39332c65932111a1f20f532f1dac9b66fd2ae;hb=707ea5881703d680155aab268bdbf7edc113e3b1;hp=a2bb21572dacfd9b1c29e4d7d229bd2a9192b5d0;hpb=e07185eda0f37bd56ad876a2dfe73c956e432ffc;p=ghc-hetmet.git diff --git a/compiler/utils/Digraph.lhs b/compiler/utils/Digraph.lhs index a2bb215..2ed3933 100644 --- a/compiler/utils/Digraph.lhs +++ b/compiler/utils/Digraph.lhs @@ -76,7 +76,7 @@ Note [Nodes, keys, vertices] \begin{code} data Graph node = Graph { - gr_int_graph :: IntGraph, + gr_int_graph :: IntGraph, gr_vertex_to_node :: Vertex -> node, gr_node_to_vertex :: node -> Maybe Vertex }