Update eval.hs