Why are am I getting “Non-exhaustive patterns in function” in this Haskell function?

Question

Today I\'ve Learned that running ghci with the -Wall flag helps solving non-exhaustive patterns problems.

Original question:

I ha