[Haskell] Problem with types.