Extract Blob

Author: nojaf

src/FileAPI/Blob.js

@@ -6,32 +6,43 @@ open FileAPI
 @new
 external make: (~blobParts: array<blobPart>=?, ~options: blobPropertyBag=?) => blob = "Blob"
 
-/**
+module Impl = (
+  T: {
+    type t
+  },
+) => {
+  external asBlob: T.t => blob = "%identity"
+  /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/slice)
 */
-@send
-external slice: (blob, ~start: int=?, ~end: int=?, ~contentType: string=?) => blob = "slice"
+  @send
+  external slice: (T.t, ~start: int=?, ~end: int=?, ~contentType: string=?) => blob = "slice"
 
-/**
+  /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/stream)
 */
-@send
-external stream: blob => readableStream<array<int>> = "stream"
+  @send
+  external stream: T.t => readableStream<array<int>> = "stream"
 
-/**
+  /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/text)
 */
-@send
-external text: blob => Promise.t<string> = "text"
+  @send
+  external text: T.t => Promise.t<string> = "text"
 
-/**
+  /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer)
 */
-@send
-external arrayBuffer: blob => Promise.t<ArrayBuffer.t> = "arrayBuffer"
+  @send
+  external arrayBuffer: T.t => Promise.t<ArrayBuffer.t> = "arrayBuffer"
 
-/**
+  /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/bytes)
 */
-@send
-external bytes: blob => Promise.t<array<int>> = "bytes"
+  @send
+  external bytes: T.t => Promise.t<array<int>> = "bytes"
+}
+
+include Impl({
+  type t = blob
+})

src/FileAPI/Blob.res

@@ -1,5 +1,9 @@
 open FileAPI
 
+include Blob.Impl({
+  type t = file
+})
+
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/File)
 */
@@ -9,34 +13,3 @@ external make: (
   ~fileName: string,
   ~options: filePropertyBag=?,
 ) => file = "File"
-
-external asBlob: file => blob = "%identity"
-/**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/slice)
-*/
-@send
-external slice: (file, ~start: int=?, ~end: int=?, ~contentType: string=?) => blob = "slice"
-
-/**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/stream)
-*/
-@send
-external stream: file => readableStream<array<int>> = "stream"
-
-/**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/text)
-*/
-@send
-external text: file => Promise.t<string> = "text"
-
-/**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer)
-*/
-@send
-external arrayBuffer: file => Promise.t<ArrayBuffer.t> = "arrayBuffer"
-
-/**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Blob/bytes)
-*/
-@send
-external bytes: file => Promise.t<array<int>> = "bytes"