Update World.hs