Merge pull request #39 from jprider63/master

Functionality to create FormData objects.

Author: garyb

src/DOM/XHR/FormData.js

@@ -0,0 +1,29 @@
+
+"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.appendWithName = 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.Foldable
+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 :: forall f . (Foldable f) => f (Tuple String FormDataValue) -> FormData
+toFormData dat =
+	let form = newFormData unit 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)) = 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 appendWithName :: forall a . FormData -> String -> a -> String -> Unit