Merge pull request #141 from rescript-lang/formdata-get

Correct get binding

Author: nojaf

src/FetchAPI/FormData.res

@@ -31,13 +31,13 @@ external delete: (formData, string) => unit = "delete"
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/FormData/get)
 */
 @send
-external get: (formData, string) => string = "get"
+external get: (formData, string) => null<string> = "get"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/FormData/get)
 */
 @send
-external getFile: (formData, string) => file = "get"
+external getFile: (formData, string) => null<file> = "get"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/FormData/getAll)
@@ -51,6 +51,12 @@ external getAll: (formData, string) => array<formDataEntryValue> = "getAll"
 @send
 external has: (formData, string) => bool = "has"
 
+/**
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/FormData/keys)
+*/
+@send
+external keys: formData => Iterator.t<string> = "keys"
+
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/FormData/set)
 */

src/WebWorkersAPI.res

@@ -52,7 +52,6 @@ type workerType =
   | @as("classic") Classic
   | @as("module") Module
 
-
 /** An object containing option properties that can set when creating the
 object instance. */
 type workerOptions = {
@@ -71,5 +70,5 @@ the complete list of functions available to workers.
 @editor.completeFrom(SharedWorkerGlobalScope)
 type sharedWorkerGlobalScope = {
   ...workerGlobalScope,
-  name: option<string>
+  name: option<string>,
 }

src/WebWorkersAPI/SharedWorker.res

@@ -1,9 +1,7 @@
 open ChannelMessagingAPI
 open WebWorkersAPI
 
-include EventTarget.Impl({
-  type t = sharedWorker
-})
+include EventTarget.Impl({type t = sharedWorker})
 
 /**
 `make(string)`

src/WebWorkersAPI/SharedWorkerGlobalScope.res

@@ -5,9 +5,7 @@ module Impl = (
     type t
   },
 ) => {
-  include WorkerGlobalScope.Impl({
-    type t = T.t
-  })
+  include WorkerGlobalScope.Impl({type t = T.t})
 
   /**
 `close(sharedWorkerGlobalScope)`
@@ -26,7 +24,4 @@ self -> SharedWorkerGlobalScope.close
   external close: T.t => unit = "close"
 }
 
-include Impl({
-  type t = sharedWorkerGlobalScope
-})
-
+include Impl({type t = sharedWorkerGlobalScope})

tests/FetchAPI/FormData__test.res

@@ -3,5 +3,5 @@
 external myForm: DOMAPI.htmlFormElement = "myForm"
 
 let formData = FormData.make(~form=myForm)
-let phone = formData->FormData.get("phone")
-let image = formData->FormData.getFile("image")
+let phone : null<string> = formData->FormData.get("phone")
+let image : null<FileAPI.file> = formData->FormData.getFile("image")