Incorporated @garyb's comments.

Author: jprider63

src/DOM/XHR/FormData.js

@@ -16,7 +16,7 @@ exports.appendString = function(form) {
 	};
 };
 
-exports.appendFile = function(form) {
+exports.appendWithName = function(form) {
 	return function( key) {
 		return function( val) {
 			return function( name) {
@@ -27,13 +27,3 @@ exports.appendFile = function(form) {
 	};
 };
 
-exports.appendBlob = function(form) {
-	return function( key) {
-		return function( val) {
-			return function( name) {
-				form.append( key, val, name);
-				return {};
-			};
-		};
-	};
-};

src/DOM/XHR/FormData.purs

@@ -1,5 +1,6 @@
 module DOM.XHR.FormData (FormDataValue(..), toFormData) where
 
+import Data.Foldable
 import Data.Tuple
 import DOM.File.Types
 import DOM.XHR.Types
@@ -12,19 +13,18 @@ data FormDataValue =
 	| FormDataBlob String Blob -- ^ Blob name and `Blob` object.
 
 -- | Convert an associated array of keys and values to a `FormData`. 
-toFormData :: Array (Tuple String FormDataValue) -> FormData
+toFormData :: forall f . (Foldable f) => f (Tuple String FormDataValue) -> FormData
 toFormData dat =
 	let form = newFormData unit in
-	let _unit = map (appendData form) dat in
+	let _unit = foldMap (appendData form) dat in
 	form
 
 	where
 		appendData form (Tuple key (FormDataString val)) = appendString form key val
-		appendData form (Tuple key (FormDataFile name val)) = appendFile form key val name
-		appendData form (Tuple key (FormDataBlob name val)) = appendBlob form key val name
+		appendData form (Tuple key (FormDataFile name val)) = appendWithName form key val name
+		appendData form (Tuple key (FormDataBlob name val)) = appendWithName form key val name
 
 foreign import newFormData :: Unit -> FormData
 
 foreign import appendString :: FormData -> String -> String -> Unit
-foreign import appendFile :: FormData -> String -> File -> String -> Unit
-foreign import appendBlob :: FormData -> String -> Blob -> String -> Unit
+foreign import appendWithName :: forall a . FormData -> String -> a -> String -> Unit