Update Graph.hs