[Haskell-cafe] Checking a value against a passed-in constructor?