File tree Expand file tree Collapse file tree 6 files changed +36
-36
lines changed Expand file tree Collapse file tree 6 files changed +36
-36
lines changed Original file line number Diff line number Diff line change 1
1
type t =
2
2
| Js
3
- | Bs_js
4
3
| Mjs
5
- | Bs_mjs
6
4
| Cjs
5
+ | Bs_js
6
+ | Bs_mjs
7
7
| Bs_cjs
8
8
| Unknown_extension
9
9
10
10
let to_string (x : t ) =
11
11
match x with
12
12
| Js -> Literals. suffix_js
13
- | Bs_js -> Literals. suffix_bs_js
14
13
| Mjs -> Literals. suffix_mjs
15
- | Bs_mjs -> Literals. suffix_bs_mjs
16
14
| Cjs -> Literals. suffix_cjs
15
+ | Bs_js -> Literals. suffix_bs_js
16
+ | Bs_mjs -> Literals. suffix_bs_mjs
17
17
| Bs_cjs -> Literals. suffix_bs_cjs
18
18
| Unknown_extension -> assert false
19
19
20
20
let of_string (x : string ) : t =
21
21
match () with
22
22
| () when x = Literals. suffix_js -> Js
23
- | () when x = Literals. suffix_bs_js -> Bs_js
24
23
| () when x = Literals. suffix_mjs -> Mjs
25
- | () when x = Literals. suffix_bs_mjs -> Bs_mjs
26
24
| () when x = Literals. suffix_cjs -> Cjs
25
+ | () when x = Literals. suffix_bs_js -> Bs_js
26
+ | () when x = Literals. suffix_bs_mjs -> Bs_mjs
27
27
| () when x = Literals. suffix_bs_cjs -> Bs_cjs
28
28
| _ -> Unknown_extension
Original file line number Diff line number Diff line change @@ -7104,30 +7104,30 @@ module Ext_js_suffix
7104
7104
#1 "ext_js_suffix.ml"
7105
7105
type t =
7106
7106
| Js
7107
- | Bs_js
7108
7107
| Mjs
7109
- | Bs_mjs
7110
7108
| Cjs
7109
+ | Bs_js
7110
+ | Bs_mjs
7111
7111
| Bs_cjs
7112
7112
| Unknown_extension
7113
7113
7114
7114
let to_string (x : t) =
7115
7115
match x with
7116
7116
| Js -> Literals.suffix_js
7117
- | Bs_js -> Literals.suffix_bs_js
7118
7117
| Mjs -> Literals.suffix_mjs
7119
- | Bs_mjs -> Literals.suffix_bs_mjs
7120
7118
| Cjs -> Literals.suffix_cjs
7119
+ | Bs_js -> Literals.suffix_bs_js
7120
+ | Bs_mjs -> Literals.suffix_bs_mjs
7121
7121
| Bs_cjs -> Literals.suffix_bs_cjs
7122
7122
| Unknown_extension -> assert false
7123
7123
7124
7124
let of_string (x : string) : t =
7125
7125
match () with
7126
7126
| () when x = Literals.suffix_js -> Js
7127
- | () when x = Literals.suffix_bs_js -> Bs_js
7128
7127
| () when x = Literals.suffix_mjs -> Mjs
7129
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
7130
7128
| () when x = Literals.suffix_cjs -> Cjs
7129
+ | () when x = Literals.suffix_bs_js -> Bs_js
7130
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
7131
7131
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
7132
7132
| _ -> Unknown_extension
7133
7133
Original file line number Diff line number Diff line change @@ -38354,30 +38354,30 @@ module Ext_js_suffix
38354
38354
#1 "ext_js_suffix.ml"
38355
38355
type t =
38356
38356
| Js
38357
- | Bs_js
38358
38357
| Mjs
38359
- | Bs_mjs
38360
38358
| Cjs
38359
+ | Bs_js
38360
+ | Bs_mjs
38361
38361
| Bs_cjs
38362
38362
| Unknown_extension
38363
38363
38364
38364
let to_string (x : t) =
38365
38365
match x with
38366
38366
| Js -> Literals.suffix_js
38367
- | Bs_js -> Literals.suffix_bs_js
38368
38367
| Mjs -> Literals.suffix_mjs
38369
- | Bs_mjs -> Literals.suffix_bs_mjs
38370
38368
| Cjs -> Literals.suffix_cjs
38369
+ | Bs_js -> Literals.suffix_bs_js
38370
+ | Bs_mjs -> Literals.suffix_bs_mjs
38371
38371
| Bs_cjs -> Literals.suffix_bs_cjs
38372
38372
| Unknown_extension -> assert false
38373
38373
38374
38374
let of_string (x : string) : t =
38375
38375
match () with
38376
38376
| () when x = Literals.suffix_js -> Js
38377
- | () when x = Literals.suffix_bs_js -> Bs_js
38378
38377
| () when x = Literals.suffix_mjs -> Mjs
38379
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
38380
38378
| () when x = Literals.suffix_cjs -> Cjs
38379
+ | () when x = Literals.suffix_bs_js -> Bs_js
38380
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
38381
38381
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
38382
38382
| _ -> Unknown_extension
38383
38383
Original file line number Diff line number Diff line change @@ -46760,30 +46760,30 @@ module Ext_js_suffix
46760
46760
#1 "ext_js_suffix.ml"
46761
46761
type t =
46762
46762
| Js
46763
- | Bs_js
46764
46763
| Mjs
46765
- | Bs_mjs
46766
46764
| Cjs
46765
+ | Bs_js
46766
+ | Bs_mjs
46767
46767
| Bs_cjs
46768
46768
| Unknown_extension
46769
46769
46770
46770
let to_string (x : t) =
46771
46771
match x with
46772
46772
| Js -> Literals.suffix_js
46773
- | Bs_js -> Literals.suffix_bs_js
46774
46773
| Mjs -> Literals.suffix_mjs
46775
- | Bs_mjs -> Literals.suffix_bs_mjs
46776
46774
| Cjs -> Literals.suffix_cjs
46775
+ | Bs_js -> Literals.suffix_bs_js
46776
+ | Bs_mjs -> Literals.suffix_bs_mjs
46777
46777
| Bs_cjs -> Literals.suffix_bs_cjs
46778
46778
| Unknown_extension -> assert false
46779
46779
46780
46780
let of_string (x : string) : t =
46781
46781
match () with
46782
46782
| () when x = Literals.suffix_js -> Js
46783
- | () when x = Literals.suffix_bs_js -> Bs_js
46784
46783
| () when x = Literals.suffix_mjs -> Mjs
46785
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46786
46784
| () when x = Literals.suffix_cjs -> Cjs
46785
+ | () when x = Literals.suffix_bs_js -> Bs_js
46786
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46787
46787
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
46788
46788
| _ -> Unknown_extension
46789
46789
Original file line number Diff line number Diff line change @@ -46760,30 +46760,30 @@ module Ext_js_suffix
46760
46760
#1 "ext_js_suffix.ml"
46761
46761
type t =
46762
46762
| Js
46763
- | Bs_js
46764
46763
| Mjs
46765
- | Bs_mjs
46766
46764
| Cjs
46765
+ | Bs_js
46766
+ | Bs_mjs
46767
46767
| Bs_cjs
46768
46768
| Unknown_extension
46769
46769
46770
46770
let to_string (x : t) =
46771
46771
match x with
46772
46772
| Js -> Literals.suffix_js
46773
- | Bs_js -> Literals.suffix_bs_js
46774
46773
| Mjs -> Literals.suffix_mjs
46775
- | Bs_mjs -> Literals.suffix_bs_mjs
46776
46774
| Cjs -> Literals.suffix_cjs
46775
+ | Bs_js -> Literals.suffix_bs_js
46776
+ | Bs_mjs -> Literals.suffix_bs_mjs
46777
46777
| Bs_cjs -> Literals.suffix_bs_cjs
46778
46778
| Unknown_extension -> assert false
46779
46779
46780
46780
let of_string (x : string) : t =
46781
46781
match () with
46782
46782
| () when x = Literals.suffix_js -> Js
46783
- | () when x = Literals.suffix_bs_js -> Bs_js
46784
46783
| () when x = Literals.suffix_mjs -> Mjs
46785
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46786
46784
| () when x = Literals.suffix_cjs -> Cjs
46785
+ | () when x = Literals.suffix_bs_js -> Bs_js
46786
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46787
46787
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
46788
46788
| _ -> Unknown_extension
46789
46789
Original file line number Diff line number Diff line change @@ -222947,30 +222947,30 @@ module Ext_js_suffix
222947
222947
#1 "ext_js_suffix.ml"
222948
222948
type t =
222949
222949
| Js
222950
- | Bs_js
222951
222950
| Mjs
222952
- | Bs_mjs
222953
222951
| Cjs
222952
+ | Bs_js
222953
+ | Bs_mjs
222954
222954
| Bs_cjs
222955
222955
| Unknown_extension
222956
222956
222957
222957
let to_string (x : t) =
222958
222958
match x with
222959
222959
| Js -> Literals.suffix_js
222960
- | Bs_js -> Literals.suffix_bs_js
222961
222960
| Mjs -> Literals.suffix_mjs
222962
- | Bs_mjs -> Literals.suffix_bs_mjs
222963
222961
| Cjs -> Literals.suffix_cjs
222962
+ | Bs_js -> Literals.suffix_bs_js
222963
+ | Bs_mjs -> Literals.suffix_bs_mjs
222964
222964
| Bs_cjs -> Literals.suffix_bs_cjs
222965
222965
| Unknown_extension -> assert false
222966
222966
222967
222967
let of_string (x : string) : t =
222968
222968
match () with
222969
222969
| () when x = Literals.suffix_js -> Js
222970
- | () when x = Literals.suffix_bs_js -> Bs_js
222971
222970
| () when x = Literals.suffix_mjs -> Mjs
222972
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
222973
222971
| () when x = Literals.suffix_cjs -> Cjs
222972
+ | () when x = Literals.suffix_bs_js -> Bs_js
222973
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
222974
222974
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
222975
222975
| _ -> Unknown_extension
222976
222976
You can’t perform that action at this time.
0 commit comments