[Haskell] Type of y f = f . f