File tree 6 files changed +36
-36
lines changed
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 @@ -7100,30 +7100,30 @@ module Ext_js_suffix
7100
7100
#1 " ext_js_suffix.ml"
7101
7101
type t =
7102
7102
| Js
7103
- | Bs_js
7104
7103
| Mjs
7105
- | Bs_mjs
7106
7104
| Cjs
7105
+ | Bs_js
7106
+ | Bs_mjs
7107
7107
| Bs_cjs
7108
7108
| Unknown_extension
7109
7109
7110
7110
let to_string (x : t ) =
7111
7111
match x with
7112
7112
| Js -> Literals. suffix_js
7113
- | Bs_js -> Literals. suffix_bs_js
7114
7113
| Mjs -> Literals. suffix_mjs
7115
- | Bs_mjs -> Literals. suffix_bs_mjs
7116
7114
| Cjs -> Literals. suffix_cjs
7115
+ | Bs_js -> Literals. suffix_bs_js
7116
+ | Bs_mjs -> Literals. suffix_bs_mjs
7117
7117
| Bs_cjs -> Literals. suffix_bs_cjs
7118
7118
| Unknown_extension -> assert false
7119
7119
7120
7120
let of_string (x : string ) : t =
7121
7121
match () with
7122
7122
| () when x = Literals. suffix_js -> Js
7123
- | () when x = Literals. suffix_bs_js -> Bs_js
7124
7123
| () when x = Literals. suffix_mjs -> Mjs
7125
- | () when x = Literals. suffix_bs_mjs -> Bs_mjs
7126
7124
| () when x = Literals. suffix_cjs -> Cjs
7125
+ | () when x = Literals. suffix_bs_js -> Bs_js
7126
+ | () when x = Literals. suffix_bs_mjs -> Bs_mjs
7127
7127
| () when x = Literals. suffix_bs_cjs -> Bs_cjs
7128
7128
| _ -> Unknown_extension
7129
7129
Original file line number Diff line number Diff line change @@ -38350,30 +38350,30 @@ module Ext_js_suffix
38350
38350
#1 "ext_js_suffix.ml"
38351
38351
type t =
38352
38352
| Js
38353
- | Bs_js
38354
38353
| Mjs
38355
- | Bs_mjs
38356
38354
| Cjs
38355
+ | Bs_js
38356
+ | Bs_mjs
38357
38357
| Bs_cjs
38358
38358
| Unknown_extension
38359
38359
38360
38360
let to_string (x : t) =
38361
38361
match x with
38362
38362
| Js -> Literals.suffix_js
38363
- | Bs_js -> Literals.suffix_bs_js
38364
38363
| Mjs -> Literals.suffix_mjs
38365
- | Bs_mjs -> Literals.suffix_bs_mjs
38366
38364
| Cjs -> Literals.suffix_cjs
38365
+ | Bs_js -> Literals.suffix_bs_js
38366
+ | Bs_mjs -> Literals.suffix_bs_mjs
38367
38367
| Bs_cjs -> Literals.suffix_bs_cjs
38368
38368
| Unknown_extension -> assert false
38369
38369
38370
38370
let of_string (x : string) : t =
38371
38371
match () with
38372
38372
| () when x = Literals.suffix_js -> Js
38373
- | () when x = Literals.suffix_bs_js -> Bs_js
38374
38373
| () when x = Literals.suffix_mjs -> Mjs
38375
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
38376
38374
| () when x = Literals.suffix_cjs -> Cjs
38375
+ | () when x = Literals.suffix_bs_js -> Bs_js
38376
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
38377
38377
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
38378
38378
| _ -> Unknown_extension
38379
38379
Original file line number Diff line number Diff line change @@ -46756,30 +46756,30 @@ module Ext_js_suffix
46756
46756
#1 "ext_js_suffix.ml"
46757
46757
type t =
46758
46758
| Js
46759
- | Bs_js
46760
46759
| Mjs
46761
- | Bs_mjs
46762
46760
| Cjs
46761
+ | Bs_js
46762
+ | Bs_mjs
46763
46763
| Bs_cjs
46764
46764
| Unknown_extension
46765
46765
46766
46766
let to_string (x : t) =
46767
46767
match x with
46768
46768
| Js -> Literals.suffix_js
46769
- | Bs_js -> Literals.suffix_bs_js
46770
46769
| Mjs -> Literals.suffix_mjs
46771
- | Bs_mjs -> Literals.suffix_bs_mjs
46772
46770
| Cjs -> Literals.suffix_cjs
46771
+ | Bs_js -> Literals.suffix_bs_js
46772
+ | Bs_mjs -> Literals.suffix_bs_mjs
46773
46773
| Bs_cjs -> Literals.suffix_bs_cjs
46774
46774
| Unknown_extension -> assert false
46775
46775
46776
46776
let of_string (x : string) : t =
46777
46777
match () with
46778
46778
| () when x = Literals.suffix_js -> Js
46779
- | () when x = Literals.suffix_bs_js -> Bs_js
46780
46779
| () when x = Literals.suffix_mjs -> Mjs
46781
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46782
46780
| () when x = Literals.suffix_cjs -> Cjs
46781
+ | () when x = Literals.suffix_bs_js -> Bs_js
46782
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46783
46783
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
46784
46784
| _ -> Unknown_extension
46785
46785
Original file line number Diff line number Diff line change @@ -46756,30 +46756,30 @@ module Ext_js_suffix
46756
46756
#1 "ext_js_suffix.ml"
46757
46757
type t =
46758
46758
| Js
46759
- | Bs_js
46760
46759
| Mjs
46761
- | Bs_mjs
46762
46760
| Cjs
46761
+ | Bs_js
46762
+ | Bs_mjs
46763
46763
| Bs_cjs
46764
46764
| Unknown_extension
46765
46765
46766
46766
let to_string (x : t) =
46767
46767
match x with
46768
46768
| Js -> Literals.suffix_js
46769
- | Bs_js -> Literals.suffix_bs_js
46770
46769
| Mjs -> Literals.suffix_mjs
46771
- | Bs_mjs -> Literals.suffix_bs_mjs
46772
46770
| Cjs -> Literals.suffix_cjs
46771
+ | Bs_js -> Literals.suffix_bs_js
46772
+ | Bs_mjs -> Literals.suffix_bs_mjs
46773
46773
| Bs_cjs -> Literals.suffix_bs_cjs
46774
46774
| Unknown_extension -> assert false
46775
46775
46776
46776
let of_string (x : string) : t =
46777
46777
match () with
46778
46778
| () when x = Literals.suffix_js -> Js
46779
- | () when x = Literals.suffix_bs_js -> Bs_js
46780
46779
| () when x = Literals.suffix_mjs -> Mjs
46781
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46782
46780
| () when x = Literals.suffix_cjs -> Cjs
46781
+ | () when x = Literals.suffix_bs_js -> Bs_js
46782
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
46783
46783
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
46784
46784
| _ -> Unknown_extension
46785
46785
Original file line number Diff line number Diff line change @@ -222833,30 +222833,30 @@ module Ext_js_suffix
222833
222833
#1 "ext_js_suffix.ml"
222834
222834
type t =
222835
222835
| Js
222836
- | Bs_js
222837
222836
| Mjs
222838
- | Bs_mjs
222839
222837
| Cjs
222838
+ | Bs_js
222839
+ | Bs_mjs
222840
222840
| Bs_cjs
222841
222841
| Unknown_extension
222842
222842
222843
222843
let to_string (x : t) =
222844
222844
match x with
222845
222845
| Js -> Literals.suffix_js
222846
- | Bs_js -> Literals.suffix_bs_js
222847
222846
| Mjs -> Literals.suffix_mjs
222848
- | Bs_mjs -> Literals.suffix_bs_mjs
222849
222847
| Cjs -> Literals.suffix_cjs
222848
+ | Bs_js -> Literals.suffix_bs_js
222849
+ | Bs_mjs -> Literals.suffix_bs_mjs
222850
222850
| Bs_cjs -> Literals.suffix_bs_cjs
222851
222851
| Unknown_extension -> assert false
222852
222852
222853
222853
let of_string (x : string) : t =
222854
222854
match () with
222855
222855
| () when x = Literals.suffix_js -> Js
222856
- | () when x = Literals.suffix_bs_js -> Bs_js
222857
222856
| () when x = Literals.suffix_mjs -> Mjs
222858
- | () when x = Literals.suffix_bs_mjs -> Bs_mjs
222859
222857
| () when x = Literals.suffix_cjs -> Cjs
222858
+ | () when x = Literals.suffix_bs_js -> Bs_js
222859
+ | () when x = Literals.suffix_bs_mjs -> Bs_mjs
222860
222860
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
222861
222861
| _ -> Unknown_extension
222862
222862
You can’t perform that action at this time.
0 commit comments