remove unused variable

Author: bobzhang

jscomp/bsb/bsb_config_parse.ml

@@ -138,18 +138,6 @@ let check_stdlib (map : json_map) cwd (*built_in_package*) =
     end
 
 
-let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =  
-  match Map_string.find_opt map Bsb_build_schemas.suffix with 
-  | None -> Js  
-  | Some (Str {str} as config ) -> 
-    let s =  Ext_js_suffix.of_string str  in 
-    if s = Unknown_extension then 
-     Bsb_exception.config_error config 
-        "expect .bs.js, .js, .cjs, .mjs here"
-    else s     
-  | Some config -> 
-    Bsb_exception.config_error config 
-      "expect a string exteion like \".js\" here"
 
 let extract_gentype_config (map : json_map) cwd 
   : Bsb_config_types.gentype_config option = 

jscomp/bsb/bsb_package_specs.ml

@@ -108,7 +108,7 @@ and from_json_single suffix (x : Ext_json_types.t) : spec =
             if s = Unknown_extension then 
               Bsb_exception.errorf ~loc "expect .js,.bs.js,.mjs or .cjs"
             else  s 
-          | Some v -> 
+          | Some _ -> 
             Bsb_exception.errorf ~loc:(Ext_json.loc_of x) "expect a string field"
           | None -> suffix in   
         {format = supported_format format loc ; in_source ; suffix}        
@@ -195,7 +195,7 @@ type json_map = Ext_json_types.t Map_string.t
 let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =  
   match Map_string.find_opt map Bsb_build_schemas.suffix with 
   | None -> Js  
-  | Some (Str {str; loc} as config ) -> 
+  | Some (Str {str; loc}) -> 
     let s =  Ext_js_suffix.of_string str  in 
     if s = Unknown_extension then 
       Bsb_exception.errorf ~loc

lib/4.06.1/bsb.ml

@@ -7206,7 +7206,7 @@ and from_json_single suffix (x : Ext_json_types.t) : spec =
             if s = Unknown_extension then 
               Bsb_exception.errorf ~loc "expect .js,.bs.js,.mjs or .cjs"
             else  s 
-          | Some v -> 
+          | Some _ -> 
             Bsb_exception.errorf ~loc:(Ext_json.loc_of x) "expect a string field"
           | None -> suffix in   
         {format = supported_format format loc ; in_source ; suffix}        
@@ -7293,7 +7293,7 @@ type json_map = Ext_json_types.t Map_string.t
 let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =  
   match Map_string.find_opt map Bsb_build_schemas.suffix with 
   | None -> Js  
-  | Some (Str {str; loc} as config ) -> 
+  | Some (Str {str; loc}) -> 
     let s =  Ext_js_suffix.of_string str  in 
     if s = Unknown_extension then 
       Bsb_exception.errorf ~loc
@@ -11667,18 +11667,6 @@ let check_stdlib (map : json_map) cwd (*built_in_package*) =
     end
 
 
-let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =  
-  match Map_string.find_opt map Bsb_build_schemas.suffix with 
-  | None -> Js  
-  | Some (Str {str} as config ) -> 
-    let s =  Ext_js_suffix.of_string str  in 
-    if s = Unknown_extension then 
-     Bsb_exception.config_error config 
-        "expect .bs.js, .js, .cjs, .mjs here"
-    else s     
-  | Some config -> 
-    Bsb_exception.config_error config 
-      "expect a string exteion like \".js\" here"
 
 let extract_gentype_config (map : json_map) cwd 
   : Bsb_config_types.gentype_config option = 

scripts/ninja.js

@@ -1610,7 +1610,7 @@ function nativeNinja() {
   var templateNative = `
 subninja ${getPreprocessorFileName()}
 rule optc
-    command = $ocamlopt -safe-string -I +compiler-libs -opaque ${includes} -g -linscan -w A-4-9-40..42-30-48-50 -absname -c $in
+    command = $ocamlopt -safe-string -I +compiler-libs -opaque ${includes} -g -linscan -w A-4-9-40..42-30-48-50 -warn-error A -absname -c $in
     description = $out : $in
 rule archive
     command = $ocamlopt -a $in -o $out