add js file to js-sources

Author: bitonic

solga-client-ghcjs/jsbits/xhr.js

@@ -0,0 +1,21 @@
+// taken from
+// <https://github.com/ghcjs/ghcjs-base/blob/eacf95aac3061275699563e1802eabe4a8f4aaec/jsbits/xhr.js>
+// see that page for license
+
+function h$solgaSendXHR(xhr, d, cont) {
+  xhr.addEventListener('error', function () {
+    cont(2);
+  });
+  xhr.addEventListener('abort', function() {
+    cont(1);
+  });
+  xhr.addEventListener('load', function() {
+    cont(0);
+  });
+  if (d) {
+    xhr.send(d);
+  } else {
+    xhr.send();
+  }
+}
+

solga-client-ghcjs/solga-client-ghcjs.cabal

@@ -25,3 +25,4 @@ library
   hs-source-dirs:      src
   default-language:    Haskell2010
   ghc-options:         -Wall
+  js-sources:          jsbits/xhr.js

solga-client-ghcjs/src/Solga/Client/GHCJS.hs

@@ -170,10 +170,10 @@ data XHRError =
 newtype GetResponse a b = GetResponse {unGetResponse :: Either XHRError (Response a) -> IO b}
 
 foreign import javascript interruptible
-  "h$anapoSendXHR($1, null, $c);"
+  "h$solgaSendXHR($1, null, $c);"
   js_send0 :: DOM.XMLHttpRequest -> IO Int
 foreign import javascript interruptible
-  "h$anapoSendXHR($1, $2, $c);"
+  "h$solgaSendXHR($1, $2, $c);"
   js_send1 ::  DOM.XMLHttpRequest -> DOM.JSVal ->IO Int
 
 performXHR :: DOM.XMLHttpRequestResponseType -> Request -> IO (Either XHRError (Response DOM.JSVal))