added Graph.hs