use @as directive for _type in @obj

Author: WhyThat

src/Webapi/Webapi__Blob.res

@@ -7,7 +7,8 @@ module Impl = (
 
   @get external size: T.t => float = "size"
 
-  @send external slice: (T.t, ~start: int=?, ~end_: int=?, ~contentType: string=?, unit) => T.t = "slice"
+  @send
+  external slice: (T.t, ~start: int=?, ~end_: int=?, ~contentType: string=?, unit) => T.t = "slice"
 
   @send external stream: T.t => Webapi__ReadableStream.t = "stream"
 
@@ -27,7 +28,11 @@ type endingType = [#transparent | #native]
 type blobPropertyBag
 
 @obj
-external makeBlobPropertyBag: (~_type: string=?, ~endings: endingType=?, unit) => blobPropertyBag = ""
+external makeBlobPropertyBag: (
+  @as("type") ~_type: string=?,
+  ~endings: endingType=?,
+  unit,
+) => blobPropertyBag = ""
 
 type blobPart
 
@@ -45,4 +50,4 @@ external int32ArrayToBlobPart: Js.Typed_array.Int32Array.t => blobPart = "%ident
 external uint32ArrayToBlobPart: Js.Typed_array.Uint32Array.t => blobPart = "%identity"
 external float32ToBlobPart: Js.Typed_array.Float32Array.t => blobPart = "%identity"
 external float64ArrayToBlobPart: Js.Typed_array.Float64Array.t => blobPart = "%identity"
-external dataViewToBlobPart: Js.Typed_array.DataView.t => blobPart = "%identity"
+external dataViewToBlobPart: Js.Typed_array.DataView.t => blobPart = "%identity"

src/Webapi/Webapi__File.res

@@ -6,22 +6,21 @@ include Webapi__Blob.Impl({
   type t = t
 })
 
-
 type filePropertyBag
 
 @obj
 external makeFilePropertyBag: (
   ~endings: Webapi__Blob.endingType=?,
-  ~_type: string=?,
+  @as("type") ~_type: string=?,
   ~lastModified: float=?,
   unit,
 ) => filePropertyBag = ""
 
 @@text("{1 File class}")
 
 @new external make: (array<Webapi__Blob.blobPart>, string) => t = "File"
-@new external makeWithOptions: (array<Webapi__Blob.blobPart>, string, filePropertyBag) => t = "File";
+@new external makeWithOptions: (array<Webapi__Blob.blobPart>, string, filePropertyBag) => t = "File"
 
 @get external lastModified: t => float = "lastModified"
 
-@get external name: t => string = "name"
+@get external name: t => string = "name"