hygiene

ocaml · Jul 29, 2021 · 2e872fa · 2e872fa
1 parent 5ff5764
commit 2e872fa
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/typing/types.ml b/typing/types.ml
@@ -544,7 +544,8 @@ let rec repr_link (t : type_expr) d : type_expr -> type_expr =
  function
    {desc = Tlink t' as d'} ->
      repr_link t d' t'
- | {desc = Tfield (_, k, _, t') as d'} when field_kind_internal_repr k = FKabsent ->
+ | {desc = Tfield (_, k, _, t') as d'}
+   when field_kind_internal_repr k = FKabsent ->
      repr_link t d' t'
  | t' ->
      log_change (Ccompress (t, t.desc, d));
@@ -554,7 +555,8 @@ let rec repr_link (t : type_expr) d : type_expr -> type_expr =
 let repr_link1 t = function
    {desc = Tlink t' as d'} ->
      repr_link t d' t'
- | {desc = Tfield (_, k, _, t') as d'} when field_kind_internal_repr k = FKabsent ->
+ | {desc = Tfield (_, k, _, t') as d'}
+   when field_kind_internal_repr k = FKabsent ->
      repr_link t d' t'
  | t' -> t'