How do I correct a pattern binding error in haskell