Update Error.hs