0eae99a · elk · git.iko.soy

on master help sign in

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

0eae99aEvan Czaplicki13 years ago

libraries/Native/Signal/Http.js+10−5

@@ -11,7 +11,9 @@ Elm.Native.Http.make = function(elm) {

12 function registerReq(queue,responses) {

13 return function(req) {

14+ if (req.url.length > 0) {

14− if (req.url.ctor !== '[]') { sendReq(queue,responses,req); }

15+ sendReq(queue,responses,req);

16+ }

15 };

17 };

16 }

18 }

@@ -29,9 +31,10 @@ Elm.Native.Http.make = function(elm) {

29 var response = { value: { ctor:'Waiting' } };

31 var response = { value: { ctor:'Waiting' } };

30 queue.push(response);

32 queue.push(response);

32− var request = null;

34+ var request = (window.ActiveXObject

33− if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }

35+ ? new ActiveXObject("Microsoft.XMLHTTP")

34− if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }

36+ : new XMLHttpRequest());

37+

35 request.onreadystatechange = function(e) {

38 request.onreadystatechange = function(e) {

36 if (request.readyState === 4) {

39 if (request.readyState === 4) {

37 response.value = (request.status >= 200 && request.status < 300 ?

40 response.value = (request.status >= 200 && request.status < 300 ?

@@ -55,5 +58,7 @@ Elm.Native.Http.make = function(elm) {

55 return A3( Signal.lift2, f, responses, sender );

58 return A3( Signal.lift2, f, responses, sender );

56 }

59 }

58− return elm.Native.Http.values = {send:send};

61+ return elm.Native.Http.values = {

62+ send:send

63+ };

59};

64};