[Haskell-cafe] How come pattern match does not recognize this code style?