Functionality to create FormData objects.

Author: jprider63

src/DOM/XHR/FormData.js

@@ -0,0 +1,39 @@
+
+"use strict";
+
+// module DOM.XHR.FormData
+
+exports.newFormData = function() {
+	return new FormData();
+};
+
+exports.appendString = function(form) {
+	return function( key) {
+		return function( val) {
+			form.append( key, val);
+			return {};
+		};
+	};
+};
+
+exports.appendFile = function(form) {
+	return function( key) {
+		return function( val) {
+			return function( name) {
+				form.append( key, val, name);
+				return {};
+			};
+		};
+	};
+};
+
+exports.appendBlob = function(form) {
+	return function( key) {
+		return function( val) {
+			return function( name) {
+				form.append( key, val, name);
+				return {};
+			};
+		};
+	};
+};

src/DOM/XHR/FormData.purs

@@ -0,0 +1,30 @@
+module DOM.XHR.FormData (FormDataValue(..), toFormData) where
+
+import Data.Tuple
+import DOM.File.Types
+import DOM.XHR.Types
+import Prelude
+
+-- | Possible values of a `FormData`.
+data FormDataValue = 
+	  FormDataString String
+	| FormDataFile String File -- ^ File name and `File` object.
+	| 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 dat =
+	let form = newFormData unit in
+	let _unit = map (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
+
+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