@@ -64,7 +64,7 @@ let rec from_array suffix (arr : Ext_json_types.t array) : Spec_set.t =
64
64
if not ! has_in_source then has_in_source := true
65
65
else
66
66
Bsb_exception. errorf ~loc: (Ext_json. loc_of x)
67
- " package-specs: we've detected two module formats that are both \
67
+ " package-specs: detected two module formats that are both \
68
68
configured to be in-source." ;
69
69
spec := Spec_set. add result ! spec);
70
70
! spec
@@ -87,11 +87,11 @@ and from_json_single suffix (x : Ext_json_types.t) : Bsb_spec_set.spec =
87
87
| Some (Str { str = suffix ; loc } ) ->
88
88
let s = Ext_js_suffix. of_string suffix in
89
89
if s = Unknown_extension then
90
- Bsb_exception. errorf ~loc " expect .js,. bs.js,. mjs or .cjs"
90
+ Bsb_exception. errorf ~loc " expected .js, .mjs, .cjs or . bs.js, .bs. mjs, .bs .cjs"
91
91
else s
92
92
| Some _ ->
93
93
Bsb_exception. errorf ~loc: (Ext_json. loc_of x)
94
- " expect a string field"
94
+ " expected a string field"
95
95
| None -> suffix
96
96
in
97
97
{ format = supported_format format loc; in_source; suffix }
@@ -107,7 +107,7 @@ and from_json_single suffix (x : Ext_json_types.t) : Bsb_spec_set.spec =
107
107
field is mandatory." )
108
108
| _ ->
109
109
Bsb_exception. errorf ~loc: (Ext_json. loc_of x)
110
- " package-specs: we expect either a string or an object."
110
+ " package-specs: expected either a string or an object."
111
111
112
112
let from_json suffix (x : Ext_json_types.t ) : Spec_set.t =
113
113
match x with
@@ -189,11 +189,11 @@ let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =
189
189
let s = Ext_js_suffix. of_string str in
190
190
if s = Unknown_extension then
191
191
Bsb_exception. errorf ~loc
192
- " expect .js, .mjs, .cjs or .bs.js, .bs.mjs, .bs.cjs here "
192
+ " expected .js, .mjs, .cjs or .bs.js, .bs.mjs, .bs.cjs"
193
193
else s
194
194
| Some config ->
195
195
Bsb_exception. config_error config
196
- " expect a string exteion like \" .js\" here "
196
+ " expected a string extension like \" .js\" "
197
197
198
198
let from_map ~(cwd : string ) map =
199
199
let suffix = extract_bs_suffix_exn map in
0 commit comments