diff options
| author | Maxime Dénès | 2017-12-14 17:22:07 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-14 17:22:07 +0100 |
| commit | 84e570d7c532f16104157b806da714906fdf26b3 (patch) | |
| tree | f020dcc0e2e599ae02d045240a076900595ea056 /intf/constrexpr.ml | |
| parent | 8f936f45ab95fdb72f1d596fc621faa39ddcb95e (diff) | |
| parent | 7720a01ceb7d00bc16cd96d99c27bc7696388899 (diff) | |
Merge PR #978: In printing, experimenting factorizing "match" clauses with same right-hand side.
Diffstat (limited to 'intf/constrexpr.ml')
| -rw-r--r-- | intf/constrexpr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intf/constrexpr.ml b/intf/constrexpr.ml index e0d2d7bf48..8bcdbcc0ef 100644 --- a/intf/constrexpr.ml +++ b/intf/constrexpr.ml @@ -104,7 +104,7 @@ and case_expr = constr_expr (* expression that is being matched * cases_pattern_expr option (* in-clause *) and branch_expr = - (cases_pattern_expr list Loc.located list * constr_expr) Loc.located + (cases_pattern_expr list list * constr_expr) Loc.located and binder_expr = Name.t Loc.located list * binder_kind * constr_expr |