Update Applicative functors.hs