add a warning number 101: for bs unused attribute

Author: bobzhang

jscomp/all.depend

@@ -203,8 +203,8 @@ syntax/ast_derive.cmx : ext/string_map.cmx ext/literals.cmx \
     syntax/ast_derive.cmi
 syntax/ast_comb.cmx : ext/ext_list.cmx syntax/ast_literal.cmx \
     syntax/ast_comb.cmi
-syntax/ast_attributes.cmx : ext/ext_string.cmx common/bs_warnings.cmx \
-    syntax/bs_syntaxerr.cmx syntax/ast_payload.cmx syntax/ast_attributes.cmi
+syntax/ast_attributes.cmx : ext/ext_string.cmx syntax/bs_syntaxerr.cmx \
+    syntax/ast_payload.cmx syntax/ast_attributes.cmi
 syntax/ast_core_type.cmx : ext/ext_list.cmx syntax/bs_syntaxerr.cmx \
     syntax/ast_comb.cmx syntax/ast_core_type.cmi
 syntax/ast_derive_dyn.cmx : ext/ext_list.cmx syntax/bs_syntaxerr.cmx \
@@ -777,7 +777,7 @@ ounit_tests/ounit_ident_mask_tests.cmx : ounit/oUnit.cmx \
 ounit_tests/ounit_cmd_util.cmx : ext/literals.cmx \
     ounit_tests/ounit_cmd_util.cmi
 ounit_tests/ounit_cmd_tests.cmx : ounit_tests/ounit_cmd_util.cmx \
-    ounit/oUnit.cmx ext/literals.cmx ext/ext_string.cmx
+    ounit/oUnit.cmx ext/ext_string.cmx
 ounit_tests/ounit_ffi_error_debug_test.cmx : ounit_tests/ounit_cmd_util.cmx \
     ounit/oUnit.cmx ext/ext_string.cmx
 ounit_tests/ounit_unicode_tests.cmx : ounit/oUnit.cmx ext/ext_string.cmx \

jscomp/bin/all_ounit_tests.ml

@@ -5282,9 +5282,15 @@ let suites =
         bsc_check_eval  {|let bla4 foo x y= foo##(method1 x y [@bs]) |} in 
       (* debug_output should_be_warning; *)
       OUnit.assert_bool __LOC__ (Ext_string.contain_substring
-                                   should_be_warning.stderr Literals.unused_attribute)
+                                   should_be_warning.stderr "Unused")
     end;
-
+     __LOC__ >:: begin fun _ ->    
+      let should_be_warning = 
+        bsc_check_eval  {| external mk : int -> ([`a|`b [@bs.string]]) = "" [@@bs.val] |} in 
+        OUnit.assert_bool __LOC__ 
+        (Ext_string.contain_substring
+                                   should_be_warning.stderr "Unused")
+     end;
     __LOC__ >:: begin fun _ -> 
       let should_err = bsc_check_eval {|
 external ff : 

jscomp/bin/bsb.ml

@@ -9654,7 +9654,7 @@ type t = {
   error : warning_error
 }
 
-let default_warning_flag =  "-w -30-40+6+7+27+32..39+44+45"
+let default_warning_flag =  "-w -30-40+6+7+27+32..39+44+45+101"
 
 let get_warning_flag x = 
   default_warning_flag ^