Skip to content

Commit cf107dd

Browse files
bobzhangbobzhang
committedApr 28, 2019
clean up
1 parent 81fb9e4 commit cf107dd

9 files changed

+15
-27
lines changed
 

‎jscomp/core/lam_compile_external_call.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -146,7 +146,7 @@ let ocaml_to_js_eff
146146
Js_of_lam_variant.eval_as_unwrap raw_arg
147147
in
148148
Splice1 single_arg,[]
149-
| Nothing | Extern_arg_array -> Splice1 arg, []
149+
| Nothing -> Splice1 arg, []
150150

151151

152152

‎jscomp/syntax/ast_external_process.ml

+2-2
Original file line numberDiff line numberDiff line change
@@ -438,7 +438,7 @@ let process_obj
438438
arg_type },
439439
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
440440
((name , [], new_ty) :: result_types)
441-
| Nothing | Extern_arg_array ->
441+
| Nothing ->
442442
let s = (Lam_methname.translate ~loc name) in
443443
{arg_label = External_arg_spec.label s None ; arg_type },
444444
{param_type with ty = new_ty}::arg_types,
@@ -471,7 +471,7 @@ let process_obj
471471
| Ignore ->
472472
External_arg_spec.empty_kind arg_type,
473473
param_type::arg_types, result_types
474-
| Nothing | Extern_arg_array ->
474+
| Nothing ->
475475
let s = (Lam_methname.translate ~loc name) in
476476
{arg_label = External_arg_spec.optional s; arg_type},
477477
param_type :: arg_types,

‎jscomp/syntax/external_arg_spec.ml

-1
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,6 @@ type attr =
4545
| Arg_cst of cst
4646
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
4747
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
48-
| Extern_arg_array
4948
| Extern_unit
5049
| Nothing
5150
| Ignore

‎jscomp/syntax/external_arg_spec.mli

-1
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,6 @@ type attr =
4444
| Arg_cst of cst
4545
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
4646
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
47-
| Extern_arg_array
4847
| Extern_unit
4948
| Nothing
5049
| Ignore

‎lib/4.02.3/bsdep.ml

+2-4
Original file line numberDiff line numberDiff line change
@@ -33344,7 +33344,6 @@ type attr =
3334433344
| Arg_cst of cst
3334533345
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
3334633346
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
33347-
| Extern_arg_array
3334833347
| Extern_unit
3334933348
| Nothing
3335033349
| Ignore
@@ -33415,7 +33414,6 @@ type attr =
3341533414
| Arg_cst of cst
3341633415
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
3341733416
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
33418-
| Extern_arg_array
3341933417
| Extern_unit
3342033418
| Nothing
3342133419
| Ignore
@@ -35803,7 +35801,7 @@ let process_obj
3580335801
arg_type },
3580435802
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
3580535803
((name , [], new_ty) :: result_types)
35806-
| Nothing | Extern_arg_array ->
35804+
| Nothing ->
3580735805
let s = (Lam_methname.translate ~loc name) in
3580835806
{arg_label = External_arg_spec.label s None ; arg_type },
3580935807
{param_type with ty = new_ty}::arg_types,
@@ -35836,7 +35834,7 @@ let process_obj
3583635834
| Ignore ->
3583735835
External_arg_spec.empty_kind arg_type,
3583835836
param_type::arg_types, result_types
35839-
| Nothing | Extern_arg_array ->
35837+
| Nothing ->
3584035838
let s = (Lam_methname.translate ~loc name) in
3584135839
{arg_label = External_arg_spec.optional s; arg_type},
3584235840
param_type :: arg_types,

‎lib/4.02.3/bsppx.ml

+2-4
Original file line numberDiff line numberDiff line change
@@ -15397,7 +15397,6 @@ type attr =
1539715397
| Arg_cst of cst
1539815398
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1539915399
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
15400-
| Extern_arg_array
1540115400
| Extern_unit
1540215401
| Nothing
1540315402
| Ignore
@@ -15468,7 +15467,6 @@ type attr =
1546815467
| Arg_cst of cst
1546915468
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1547015469
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
15471-
| Extern_arg_array
1547215470
| Extern_unit
1547315471
| Nothing
1547415472
| Ignore
@@ -17919,7 +17917,7 @@ let process_obj
1791917917
arg_type },
1792017918
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
1792117919
((name , [], new_ty) :: result_types)
17922-
| Nothing | Extern_arg_array ->
17920+
| Nothing ->
1792317921
let s = (Lam_methname.translate ~loc name) in
1792417922
{arg_label = External_arg_spec.label s None ; arg_type },
1792517923
{param_type with ty = new_ty}::arg_types,
@@ -17952,7 +17950,7 @@ let process_obj
1795217950
| Ignore ->
1795317951
External_arg_spec.empty_kind arg_type,
1795417952
param_type::arg_types, result_types
17955-
| Nothing | Extern_arg_array ->
17953+
| Nothing ->
1795617954
let s = (Lam_methname.translate ~loc name) in
1795717955
{arg_label = External_arg_spec.optional s; arg_type},
1795817956
param_type :: arg_types,

‎lib/4.02.3/unstable/js_compiler.ml

+3-5
Original file line numberDiff line numberDiff line change
@@ -15304,7 +15304,6 @@ type attr =
1530415304
| Arg_cst of cst
1530515305
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1530615306
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
15307-
| Extern_arg_array
1530815307
| Extern_unit
1530915308
| Nothing
1531015309
| Ignore
@@ -15375,7 +15374,6 @@ type attr =
1537515374
| Arg_cst of cst
1537615375
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1537715376
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
15378-
| Extern_arg_array
1537915377
| Extern_unit
1538015378
| Nothing
1538115379
| Ignore
@@ -17800,7 +17798,7 @@ let process_obj
1780017798
arg_type },
1780117799
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
1780217800
((name , [], new_ty) :: result_types)
17803-
| Nothing | Extern_arg_array ->
17801+
| Nothing ->
1780417802
let s = (Lam_methname.translate ~loc name) in
1780517803
{arg_label = External_arg_spec.label s None ; arg_type },
1780617804
{param_type with ty = new_ty}::arg_types,
@@ -17833,7 +17831,7 @@ let process_obj
1783317831
| Ignore ->
1783417832
External_arg_spec.empty_kind arg_type,
1783517833
param_type::arg_types, result_types
17836-
| Nothing | Extern_arg_array ->
17834+
| Nothing ->
1783717835
let s = (Lam_methname.translate ~loc name) in
1783817836
{arg_label = External_arg_spec.optional s; arg_type},
1783917837
param_type :: arg_types,
@@ -104338,7 +104336,7 @@ let ocaml_to_js_eff
104338104336
Js_of_lam_variant.eval_as_unwrap raw_arg
104339104337
in
104340104338
Splice1 single_arg,[]
104341-
| Nothing | Extern_arg_array -> Splice1 arg, []
104339+
| Nothing -> Splice1 arg, []
104342104340

104343104341

104344104342

‎lib/4.02.3/unstable/native_ppx.ml

+2-4
Original file line numberDiff line numberDiff line change
@@ -14517,7 +14517,6 @@ type attr =
1451714517
| Arg_cst of cst
1451814518
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1451914519
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
14520-
| Extern_arg_array
1452114520
| Extern_unit
1452214521
| Nothing
1452314522
| Ignore
@@ -14588,7 +14587,6 @@ type attr =
1458814587
| Arg_cst of cst
1458914588
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
1459014589
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
14591-
| Extern_arg_array
1459214590
| Extern_unit
1459314591
| Nothing
1459414592
| Ignore
@@ -17039,7 +17037,7 @@ let process_obj
1703917037
arg_type },
1704017038
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
1704117039
((name , [], new_ty) :: result_types)
17042-
| Nothing | Extern_arg_array ->
17040+
| Nothing ->
1704317041
let s = (Lam_methname.translate ~loc name) in
1704417042
{arg_label = External_arg_spec.label s None ; arg_type },
1704517043
{param_type with ty = new_ty}::arg_types,
@@ -17072,7 +17070,7 @@ let process_obj
1707217070
| Ignore ->
1707317071
External_arg_spec.empty_kind arg_type,
1707417072
param_type::arg_types, result_types
17075-
| Nothing | Extern_arg_array ->
17073+
| Nothing ->
1707617074
let s = (Lam_methname.translate ~loc name) in
1707717075
{arg_label = External_arg_spec.optional s; arg_type},
1707817076
param_type :: arg_types,

‎lib/4.02.3/whole_compiler.ml

+3-5
Original file line numberDiff line numberDiff line change
@@ -61656,7 +61656,6 @@ type attr =
6165661656
| Arg_cst of cst
6165761657
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
6165861658
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
61659-
| Extern_arg_array
6166061659
| Extern_unit
6166161660
| Nothing
6166261661
| Ignore
@@ -61727,7 +61726,6 @@ type attr =
6172761726
| Arg_cst of cst
6172861727
| Fn_uncurry_arity of int (* annotated with [@bs.uncurry ] or [@bs.uncurry 2]*)
6172961728
(* maybe we can improve it as a combination of {!Asttypes.constant} and tuple *)
61730-
| Extern_arg_array
6173161729
| Extern_unit
6173261730
| Nothing
6173361731
| Ignore
@@ -94950,7 +94948,7 @@ let ocaml_to_js_eff
9495094948
Js_of_lam_variant.eval_as_unwrap raw_arg
9495194949
in
9495294950
Splice1 single_arg,[]
94953-
| Nothing | Extern_arg_array -> Splice1 arg, []
94951+
| Nothing -> Splice1 arg, []
9495494952

9495594953

9495694954

@@ -106218,7 +106216,7 @@ let process_obj
106218106216
arg_type },
106219106217
arg_types, (* ignored in [arg_types], reserved in [result_types] *)
106220106218
((name , [], new_ty) :: result_types)
106221-
| Nothing | Extern_arg_array ->
106219+
| Nothing ->
106222106220
let s = (Lam_methname.translate ~loc name) in
106223106221
{arg_label = External_arg_spec.label s None ; arg_type },
106224106222
{param_type with ty = new_ty}::arg_types,
@@ -106251,7 +106249,7 @@ let process_obj
106251106249
| Ignore ->
106252106250
External_arg_spec.empty_kind arg_type,
106253106251
param_type::arg_types, result_types
106254-
| Nothing | Extern_arg_array ->
106252+
| Nothing ->
106255106253
let s = (Lam_methname.translate ~loc name) in
106256106254
{arg_label = External_arg_spec.optional s; arg_type},
106257106255
param_type :: arg_types,

0 commit comments

Comments
 (0)