Update Input.hs