Adding support for setting XMLHttpRequest.withCredentials

This allows the user to allow cookies, authorisation headers,
and TLS certificates to be sent with cross site Access-Control
requests. This flag also allows the user to control whether
response cookies (via Set-Cookie) should be ignored by the
user-agent.

Author: brendanhay

src/Network/HTTP/Affjax.js

@@ -73,6 +73,7 @@ exports._ajax = function (mkHeader, options, canceler, errback, callback) {
       })();
     };
     xhr.responseType = options.responseType;
+    xhr.withCredentials = options.withCredentials;
     xhr.send(options.content);
     return canceler(xhr);
   };

src/Network/HTTP/Affjax.purs

@@ -62,6 +62,7 @@ type AffjaxRequest a =
   , content :: Maybe a
   , username :: Maybe String
   , password :: Maybe String
+  , withCredentials :: Boolean
   }
 
 defaultRequest :: AffjaxRequest Unit
@@ -72,6 +73,7 @@ defaultRequest =
   , content: Nothing
   , username: Nothing
   , password: Nothing
+  , withCredentials: false
   }
 
 -- | The type of records that will be received as an Affjax response.
@@ -218,6 +220,7 @@ affjax' req eb cb =
          , responseType: responseTypeToString (snd responseSettings)
          , username: toNullable req.username
          , password: toNullable req.password
+         , withCredentials: req.withCredentials
          }
 
   requestSettings :: Tuple (Maybe MimeType) (Maybe RequestContent)
@@ -257,6 +260,7 @@ type AjaxRequest =
   , responseType :: String
   , username :: Nullable String
   , password :: Nullable String
+  , withCredentials :: Boolean
   }
 
 foreign import _ajax