Index: Graph.hs
===================================================================
RCS file: /cvs/fptools/libraries/base/Data/Graph.hs,v
retrieving revision 1.3
diff -r1.3 Graph.hs
31c31
< 	graphFromEdges, buildG, transposeG,
---
> 	graphFromEdges, graphFromEdges', buildG, transposeG,
190,191c190,198
< graphFromEdges edges0
<   = (graph, \v -> vertex_map ! v)
---
> graphFromEdges x = (a,b) where
>     (a,b,_) = graphFromEdges' x
> 
> graphFromEdges'
> 	:: Ord key
> 	=> [(node, key, [key])]
> 	-> (Graph, Vertex -> (node, key, [key]), key -> Maybe Vertex)
> graphFromEdges' edges0
>   = (graph, \v -> vertex_map ! v, key_vertex)