Update Evaluator.hs