Update Applicative.hs