[Haskell-beginners] Type of function with constant pattern