From 493f2da0eb2035aa939deba356dfc94d9e81ee3f Mon Sep 17 00:00:00 2001
From: Aron Erben <aron.erben@econ.uzh.ch>
Date: Fri, 10 Feb 2023 18:57:16 +0100
Subject: [PATCH] Add way to pass HTML form to FormData creation

---
 src/Blob/Browser.Blob.fs     | 3 ++-
 src/Blob/Browser.Blob.fsproj | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Blob/Browser.Blob.fs b/src/Blob/Browser.Blob.fs
index 27e4d79..ca496b7 100644
--- a/src/Blob/Browser.Blob.fs
+++ b/src/Blob/Browser.Blob.fs
@@ -3,6 +3,7 @@ namespace Browser.Types
 open System
 open Fable.Core
 open Fable.Core.JS
+open Browser.Dom
 
 [<StringEnum; RequireQualifiedAccess>]
 type BlobEndings =
@@ -39,7 +40,7 @@ type [<AllowNullLiteral; Global>] FormData =
     abstract values: unit -> obj seq
 
 type [<AllowNullLiteral>] FormDataType =
-    [<Emit("new $0($1...)")>] abstract Create: unit -> FormData
+    [<Emit("new $0($1...)")>] abstract Create: ?form : HTMLFormElement -> FormData
 
 namespace Browser
 
diff --git a/src/Blob/Browser.Blob.fsproj b/src/Blob/Browser.Blob.fsproj
index 7cc3f4a..77667d1 100644
--- a/src/Blob/Browser.Blob.fsproj
+++ b/src/Blob/Browser.Blob.fsproj
@@ -14,6 +14,9 @@
   <ItemGroup>
     <PackageReference Include="Fable.Core" Version="3.0.0" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Dom\Browser.Dom.fsproj" />
+  </ItemGroup>
   <!-- This package doesn't contain actual code
        so we don't need to add the sources -->
   <!-- <ItemGroup>