diff options
Diffstat (limited to 'src/pattern_completeness.ml')
| -rw-r--r-- | src/pattern_completeness.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pattern_completeness.ml b/src/pattern_completeness.ml index 94623e6f..c13452ff 100644 --- a/src/pattern_completeness.ml +++ b/src/pattern_completeness.ml @@ -97,7 +97,7 @@ let rec generalize ctx (P_aux (p_aux, _) as pat) = | Unbound -> GP_wild | Local (Immutable, _) -> GP_wild | Register _ | Local (Mutable, _) -> Util.warn "Matching on register or mutable variable"; GP_wild - | Enum _ | Union _ -> GP_app (Bindings.singleton id GP_wild) + | Enum _ -> GP_app (Bindings.singleton id GP_wild) end | P_var (pat, _) -> generalize ctx pat | P_vector pats -> |