+-- | Identical to 'graphFromEdges', except that the return value
+-- does not include the function which maps keys to vertices. This
+-- version of 'graphFromEdges' is for backwards compatibility.
+graphFromEdges'
+ :: Ord key
+ => [(node, key, [key])]
+ -> (Graph, Vertex -> (node, key, [key]))
+graphFromEdges' x = (a,b) where
+ (a,b,_) = graphFromEdges x
+