[Haskell-beginners] Pattern guard inside function