Wildcards in pattern match

[zonyitoo]

data Xxx = A | B | C | D | E;

let fn (x : Xxx) =
    case x of
        A   -> True
     |  _   -> False;
        ^~~~~~~~~ Parse Error