[Haskell-beginners] Missing termination rule for recursive function