diff options
| author | Alasdair Armstrong | 2018-02-05 22:58:22 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-02-05 22:58:22 +0000 |
| commit | 17265a95407c62e78bb850c0e6ffb0876c85c5cb (patch) | |
| tree | 91eb1aba10472c88aefc45c1e62f19250626ddcb /src/pretty_print_lem_ast.ml | |
| parent | 61290ddac2c50e5e0888c555eb7e355326b86d17 (diff) | |
Add typ patterns for destructuring existentials
Diffstat (limited to 'src/pretty_print_lem_ast.ml')
| -rw-r--r-- | src/pretty_print_lem_ast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pretty_print_lem_ast.ml b/src/pretty_print_lem_ast.ml index 21001f55..63661bb9 100644 --- a/src/pretty_print_lem_ast.ml +++ b/src/pretty_print_lem_ast.ml @@ -317,7 +317,7 @@ let rec pp_format_pat_lem (P_aux(p,(l,annot))) = | P_lit(lit) -> "(P_lit " ^ pp_format_lit_lem lit ^ ")" | P_wild -> "P_wild" | P_id(id) -> "(P_id " ^ pp_format_id_lem id ^ ")" - | P_var(pat,kid) -> "(P_var " ^ pp_format_pat_lem pat ^ " " ^ pp_format_var_lem kid ^ ")" + | P_var(pat,_) -> "(P_var " ^ pp_format_pat_lem pat ^ ")" (* FIXME *) | P_as(pat,id) -> "(P_as " ^ pp_format_pat_lem pat ^ " " ^ pp_format_id_lem id ^ ")" | P_typ(typ,pat) -> "(P_typ " ^ pp_format_typ_lem typ ^ " " ^ pp_format_pat_lem pat ^ ")" | P_app(id,pats) -> "(P_app " ^ pp_format_id_lem id ^ " [" ^ |