@@ -178,7 +178,7 @@ type variant_configuration_issue =
178
178
| Tag_name_not_matching of {left_tag : string option ; right_tag : string option }
179
179
| Incompatible_constructor_count of {constructor_names : string list }
180
180
181
- let variant_configuration_can_be_coerced2 (a1 : Parsetree.attributes )
181
+ let variant_configuration_can_be_coerced (a1 : Parsetree.attributes )
182
182
(a2 : Parsetree.attributes ) =
183
183
let unboxed =
184
184
match
@@ -205,29 +205,6 @@ let variant_configuration_can_be_coerced2 (a1 : Parsetree.attributes)
205
205
| Ok () , Ok () -> Ok ()
206
206
| Error e , _ | _ , Error e -> Error e
207
207
208
- let variant_configuration_can_be_coerced (a1 : Parsetree.attributes )
209
- (a2 : Parsetree.attributes ) =
210
- let unboxed =
211
- match
212
- ( Ast_untagged_variants. process_untagged a1,
213
- Ast_untagged_variants. process_untagged a2 )
214
- with
215
- | true , true | false , false -> true
216
- | _ -> false
217
- in
218
- if not unboxed then false
219
- else
220
- let tag =
221
- match
222
- ( Ast_untagged_variants. process_tag_name a1,
223
- Ast_untagged_variants. process_tag_name a2 )
224
- with
225
- | Some tag1 , Some tag2 when tag1 = tag2 -> true
226
- | None , None -> true
227
- | _ -> false
228
- in
229
- if not tag then false else true
230
-
231
208
let variant_configuration_can_be_coerced_raises ~is_spread_context ~left_loc
232
209
~right_loc ~(left_attributes : Parsetree.attributes )
233
210
~(right_attributes : Parsetree.attributes ) =
0 commit comments