Wildcard for type when matching discriminated unions
问题 In the following real world example I do a match: type Style = Nice | Cool | Ugly type Color = Blue | Yellow | Orange | Grey | Cyan type ClothingProperties = Style * Color type Clothes = | Jeans of ClothingProperties | Pullover of ClothingProperties | Shirt of ClothingProperties type Person = | Person of string * Clothes let team = [Person("Jan", Jeans (Cool, Blue)); Person("Pete", Shirt (Nice, Cyan)); Person("Harry", Pullover (Ugly, Grey))] let matchPerson person= match person with | Person