[Haskell-cafe] Trouble with non-exhaustive patterns