add GlobalScope, Location and Navigator

Author: gbagan

spago.dhall

@@ -0,0 +1,21 @@
+/* @globals self */
+
+export function location() {
+  return self.location;
+}
+
+export function navigator() {
+  return self.navigator;
+}
+
+export function postMessage(data) {
+  return function (transfer) {
+    return function () {
+      self.postMessage(data, transfer.length > 0 ? transfer : undefined);
+    };
+  };
+}
+
+export function close() {
+  self.close();
+}

src/Web/Worker/GlobalScope.js

@@ -0,0 +1,16 @@
+-- https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator
+
+module Web.Worker.GlobalScope where
+
+import Prelude
+import Effect (Effect)
+import Web.Worker.Navigator (Navigator)
+import Web.Worker.Location (Location)
+
+foreign import location :: Effect Location
+
+foreign import navigator :: Effect Navigator
+
+foreign import postMessage :: forall msg tr. msg -> Array tr -> Effect Unit
+
+foreign import close :: Effect Unit

src/Web/Worker/GlobalScope.purs

@@ -0,0 +1,53 @@
+export function hash(location) {
+  return function () {
+    return location.hash;
+  };
+}
+  
+export function host(location) {
+  return function () {
+    return location.host;
+  };
+}
+  
+export function hostname(location) {
+  return function () {
+    return location.hostname;
+  };
+}
+  
+export function href(location) {
+  return function () {
+    return location.href;
+  };
+}
+
+export function origin(location) {
+  return function () {
+    return location.origin;
+  };
+}
+  
+export function pathname(location) {
+  return function () {
+    return location.pathname;
+  };
+}
+  
+export function port(location) {
+  return function () {
+    return location.port;
+  };
+}
+  
+export function protocol(location) {
+  return function () {
+    return location.protocol;
+  };
+}
+  
+export function search(location) {
+  return function () {
+    return location.search;
+  };
+}

src/Web/Worker/Location.js

@@ -0,0 +1,37 @@
+-- https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation
+
+module Web.Worker.Location
+  ( Location
+  , hash
+  , host
+  , hostname
+  , href
+  , origin
+  , pathname
+  , port
+  , protocol
+  , search
+  )
+  where
+
+import Effect (Effect)
+
+foreign import data Location :: Type
+
+foreign import hash :: Location -> Effect String
+
+foreign import host :: Location -> Effect String
+
+foreign import hostname :: Location -> Effect String
+
+foreign import href :: Location -> Effect String
+
+foreign import origin :: Location -> Effect String
+
+foreign import pathname :: Location -> Effect String
+
+foreign import port :: Location -> Effect String
+
+foreign import protocol :: Location -> Effect String
+
+foreign import search :: Location -> Effect String

src/Web/Worker/Location.purs

@@ -0,0 +1,17 @@
+export function language(navigator) {
+  return function () {
+    return navigator.language;
+  };
+}
+
+export function hardwareConcurrency(navigator) {
+  return function () {
+    return navigator.hardwareConcurrency;
+  };
+}
+
+export function onLine(navigator) {
+  return function () {
+    return navigator.onLine;
+  };
+}

src/Web/Worker/Navigator.js

@@ -0,0 +1,15 @@
+-- https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator
+
+module Web.Worker.Navigator where
+
+import Effect (Effect)
+
+foreign import data Navigator :: Type
+
+foreign import language :: Navigator -> Effect String
+
+foreign import hardwareConcurrency :: Navigator -> Effect Int
+
+foreign import onLine :: Navigator -> Effect Boolean
+
+-- connection

src/Web/Worker/Navigator.purs

@@ -30,6 +30,14 @@ export function onMessage(f) {
   };
 }
 
+export function onMessageError(f) {
+  return function (worker) {
+    return function () {
+      worker.onmessageerror = f;
+    };
+  };
+}
+
 export function onError(f) {
   return function (worker) {
     return function () {

src/Web/Worker/Worker.js

@@ -67,6 +67,8 @@ foreign import terminate :: Worker -> Effect Unit
 
 foreign import onMessage :: (MessageEvent -> Effect Unit) -> Worker -> Effect Unit
 
+foreign import onMessageError :: (MessageEvent -> Effect Unit) -> Worker -> Effect Unit
+
 foreign import onError :: (Event -> Effect Unit) -> Worker -> Effect Unit
 
 instance Show WorkerType where