Adjust whitespace and alpha-vary

aantron · Mar 29, 2023 · 897867f · 897867f
1 parent b76bf61
commit 897867f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/ppx/instrument.ml b/src/ppx/instrument.ml
@@ -490,10 +490,11 @@ struct
         |> List.map (fun (location_trace, p'') ->
           (location_trace, Pat.alias ~loc ~attrs p'' x))
 
-      | Ppat_construct (c, Some (exnames, p')) ->
+      | Ppat_construct (c, Some (ts, p')) ->
         recur ~enclosing_loc p'
         |> List.map (fun (location_trace, p'') ->
-          (location_trace, Pat.mk  ~loc ~attrs Pat.(Ppat_construct (c, Some(exnames, p'')))))
+          (location_trace,
+          Pat.mk ~loc ~attrs Pat.(Ppat_construct (c, Some (ts, p'')))))
 
       | Ppat_variant (c, Some p') ->
         recur ~enclosing_loc p'