[Haskell-beginners] Writing a polymorphic function in Haskell