yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug from [Char] to native string switch. Empty strings are ignored again.

Browse source
This commit is contained in:
Evan Czaplicki 2014-03-08 09:02:13 -08:00
parent f1e2481641
commit 0eae99a737
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
libraries/Native/Signal/Http.js
View file

@ -11,7 +11,9 @@ Elm.Native.Http.make = function(elm) {
function registerReq(queue,responses) {
return function(req) {
if (req.url.ctor !== '[]') { sendReq(queue,responses,req); }
if (req.url.length > 0) {
sendReq(queue,responses,req);
}
};
}
@ -29,9 +31,10 @@ Elm.Native.Http.make = function(elm) {
var response = { value: { ctor:'Waiting' } };
queue.push(response);
var request = null;
if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
var request = (window.ActiveXObject
? new ActiveXObject("Microsoft.XMLHTTP")
: new XMLHttpRequest());
request.onreadystatechange = function(e) {
if (request.readyState === 4) {
response.value = (request.status >= 200 && request.status < 300 ?
@ -55,5 +58,7 @@ Elm.Native.Http.make = function(elm) {
return A3( Signal.lift2, f, responses, sender );
}
return elm.Native.Http.values = {send:send};
return elm.Native.Http.values = {
send:send
};
};