[Haskell-beginners] overload a function