remove the second argument (transferable ojects) form postMessage

Author: gbagan

src/Web/Worker/GlobalScope.js

@@ -9,10 +9,8 @@ export function navigator() {
 }
 
 export function postMessage(data) {
-  return function (transfer) {
-    return function () {
-      self.postMessage(data, transfer.length > 0 ? transfer : undefined);
-    };
+  return function () {
+    self.postMessage(data);
   };
 }
 

src/Web/Worker/GlobalScope.purs

@@ -11,6 +11,6 @@ foreign import location :: Effect Location
 
 foreign import navigator :: Effect Navigator
 
-foreign import postMessage :: forall msg tr. msg -> Array tr -> Effect Unit
+foreign import postMessage :: forall msg. msg -> Effect Unit
 
 foreign import close :: Effect Unit

src/Web/Worker/Navigator.js

@@ -14,4 +14,10 @@ export function onLine(navigator) {
   return function () {
     return navigator.onLine;
   };
+}
+
+export function userAgent(navigator) {
+  return function () {
+    return navigator.userAgent;
+  };
 }

src/Web/Worker/Navigator.purs

@@ -12,4 +12,6 @@ foreign import hardwareConcurrency :: Navigator -> Effect Int
 
 foreign import onLine :: Navigator -> Effect Boolean
 
--- connection
+foreign import userAgent :: Navigator -> Effect String
+
+-- todo: complete the list of attributes

src/Web/Worker/Worker.js

@@ -1,12 +1,12 @@
-export function newImpl (src) {
+export function _new (src) {
   return function (opts) {
     return function () {
       return new Worker(src, opts);
     };
   };
 }
 
-export function postMessage(data) {
+export function _postMessage(data) {
   return function (transfer) {
     return function (worker) {
       return function () {

src/Web/Worker/Worker.purs

@@ -49,19 +49,20 @@ defaultWorkerOptions =
   , type: Classic
   }
 
---foreign import onError :: (Error -> Effect Unit) -> Worker -> Effect Unit
-
-foreign import newImpl :: String -> { name :: String, credentials :: String, type :: String } -> Effect Worker
+foreign import _new :: String -> { name :: String, credentials :: String, type :: String } -> Effect Worker
 
 new :: String -> WorkerOptions -> Effect Worker
-new url {name, type: t, credentials} = newImpl url
+new url {name, type: t, credentials} = _new url
     { name
     , credentials: show credentials
     , type: show t
     }
 
 
-foreign import postMessage :: forall msg tr. msg -> Array tr -> Worker -> Effect Unit
+foreign import _postMessage :: forall msg tr. msg -> Array tr -> Worker -> Effect Unit
+
+postMessage :: forall msg. msg -> Worker -> Effect Unit
+postMessage msg = _postMessage msg []
 
 foreign import terminate :: Worker -> Effect Unit