fix warning concat

Author: bobzhang

jscomp/bsb/bsb_warning.ml

@@ -45,7 +45,9 @@ let prepare_warning_concat ~(beg : bool) s =
     match s.[0] with 
     | '0' .. '9' -> if beg then "-w +" ^ s else "+" ^ s 
     | 'a' .. 'z' -> 
-      if beg then "-w " ^ s else "+" ^ s 
+      if beg then "-w " ^ s else "-" ^ s 
+    | 'A' .. 'Z' -> 
+      if beg then "-w " ^ s else "+" ^ s  
     | _ -> 
       if beg then "-w " ^ s else s
 

jscomp/others/belt.ml

@@ -22,7 +22,6 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-[@@@warning "-49"]
 (** A stdlib shipped with BuckleScript
 
     This stdlib is still in {i beta} but we encourage you to try it out and
@@ -119,6 +118,8 @@
 
 *)
 
+[@@@warning "-49"]
+
 (** {!Belt.Id}
 
     Provide utilities to create identified comparators or hashes for

jscomp/others/node.ml

@@ -24,6 +24,8 @@
 
 (** Placeholder for Node bindings *)
 
+[@@@warning "-49"]
+
 module Path = Node_path
 
 module Fs = Node_fs

lib/4.06.1/bsb.ml

@@ -7068,7 +7068,9 @@ let prepare_warning_concat ~(beg : bool) s =
     match s.[0] with 
     | '0' .. '9' -> if beg then "-w +" ^ s else "+" ^ s 
     | 'a' .. 'z' -> 
-      if beg then "-w " ^ s else "+" ^ s 
+      if beg then "-w " ^ s else "-" ^ s 
+    | 'A' .. 'Z' -> 
+      if beg then "-w " ^ s else "+" ^ s  
     | _ -> 
       if beg then "-w " ^ s else s
 

lib/4.06.1/unstable/bsb_native.ml

@@ -7068,7 +7068,9 @@ let prepare_warning_concat ~(beg : bool) s =
     match s.[0] with 
     | '0' .. '9' -> if beg then "-w +" ^ s else "+" ^ s 
     | 'a' .. 'z' -> 
-      if beg then "-w " ^ s else "+" ^ s 
+      if beg then "-w " ^ s else "-" ^ s 
+    | 'A' .. 'Z' -> 
+      if beg then "-w " ^ s else "+" ^ s  
     | _ -> 
       if beg then "-w " ^ s else s