[Haskell-cafe] Problem with type in a function