apply redundant bs.string warning

Author: bobzhang

jscomp/main/builtin_cmi_datasets.ml

@@ -32,13 +32,15 @@ external isBuffer : 'a -> bool = "Buffer.isBuffer"
 external fromString : string -> t = "Buffer.from"
 [@@bs.val]
 
-external fromStringWithEncoding : string -> ([ `ascii  | `utf8  | `utf16le  | `usc2  | `base64  | `latin1 | `binary  | `hex ] [@bs.string]) -> t = "from"
+type encoding = 
+  [ `ascii  | `utf8  | `utf16le  | `usc2  | `base64  | `latin1 | `binary  | `hex ]  
+external fromStringWithEncoding : string -> encoding -> t = "from"
 [@@bs.val] [@@bs.scope "Buffer"]
 
 external toString : t -> string = "toString"
 [@@bs.send]
 
-external toStringWithEncoding : t -> ([ `ascii  | `utf8  | `utf16le  | `usc2  | `base64  | `latin1 | `binary  | `hex ] [@bs.string]) -> string = "toString"
+external toStringWithEncoding : t -> encoding -> string = "toString"
 [@@bs.send]
 
 external concat : t array -> t = "Buffer.concat"

jscomp/others/node_buffer.ml

@@ -120,20 +120,20 @@ external openSync :
     ] [@bs.string]) ->
   unit = "openSync"  [@@bs.module "fs"]
 
-
+type encoding = 
+  [
+    `hex
+  | `utf8
+  | `ascii
+  | `latin1
+  | `base64
+  | `ucs2
+  | `base64
+  | `binary
+  | `utf16le ]  
 external readFileSync :
   string ->
-  (
-    [
-      `hex
-    | `utf8
-    | `ascii
-    | `latin1
-    | `base64
-    | `ucs2
-    | `base64
-    | `binary
-    | `utf16le ][@bs.string]) ->
+  encoding ->
   string = "readFileSync"
 [@@bs.val] [@@bs.module "fs"]
 
@@ -148,16 +148,7 @@ external existsSync : string -> bool = "existsSync"
 external writeFileSync :
   string ->
   string ->
-  (
-    [ `hex
-    | `utf8
-    | `ascii
-    | `latin1
-    | `base64
-    | `ucs2
-    | `base64
-    | `binary
-    | `utf16le ][@bs.string]) ->
+  encoding ->
   unit = "writeFileSync"
 [@@bs.val] [@@bs.module "fs"]