modules Worker and SharedWorker reexport functions of module Worker.Options

Author: gbagan

README.md

@@ -24,7 +24,7 @@ import Data.Either (Either(..))
 import Effect (Effect)
 import Control.Monad.Except (runExcept)
 import Foreign (readInt)
-import Web.Worker.GlobalScope (postMessage, onMessage)
+import Web.Worker.DedicatedWorkerGlobalScope (postMessage, onMessage)
 import Web.Worker.MessageEvent (data_)
 import Effect.Console (log)
 

spago.dhall

@@ -1,17 +1,5 @@
-{-
-Welcome to a Spago project!
-You can edit this file as you like.
-
-Need help? See the following resources:
-- Spago documentation: https://github.com/purescript/spago
-- Dhall language tour: https://docs.dhall-lang.org/tutorials/Language-Tour.html
-
-When creating a new Spago project, you can use
-`spago init --no-comments` or `spago init -C`
-to generate this file without the comments in this block.
--}
 { name = "web-workers"
 , dependencies = [ "effect", "foreign", "maybe", "prelude", "unsafe-coerce", "web-events" ]
 , packages = ./packages.dhall
-, sources = [ "src/**/*.purs", "test/**/*.purs" ]
+, sources = [ "src/**/*.purs" ]
 }

src/Web/Worker/Options.purs

@@ -1,4 +1,11 @@
-module Web.Worker.Options where
+module Web.Worker.Options
+  ( Credentials(..)
+  , WorkerOptions
+  , WorkerType(..)
+  , defaultWorkerOptions
+  , toJsOptions
+  )
+  where
 
 import Prelude
 
@@ -22,11 +29,6 @@ defaultWorkerOptions =
   , type: Classic
   }
 
-instance Show WorkerType where
-  show = case _ of
-    Classic -> "classic"
-    Module _ -> "module"
-
 instance Show Credentials where
   show = case _ of
     Omit       -> "omit"

src/Web/Worker/SharedWorker.purs

@@ -5,18 +5,23 @@ module Web.Worker.SharedWorker
   , onError
   , port
   , toEventTarget
+  , module Options
   )
   where
 
 import Prelude
+
 import Data.Maybe (Maybe)
 import Effect (Effect)
 import Unsafe.Coerce (unsafeCoerce)
-import Web.Worker.Options (WorkerOptions, toJsOptions)
-import Web.Worker.Types (MessagePort)
 import Web.Event.Event (Event)
 import Web.Event.EventTarget (EventTarget)
 import Web.Internal.FFI (unsafeReadProtoTagged)
+import Web.Worker.Options (WorkerOptions, Credentials(..),
+                          WorkerType(..), defaultWorkerOptions
+                          ) as Options
+import Web.Worker.Options (WorkerOptions, toJsOptions)
+import Web.Worker.Types (MessagePort)
 
 foreign import data SharedWorker :: Type
 

src/Web/Worker/Worker.purs

@@ -10,6 +10,7 @@ module Web.Worker.Worker
   , postMessage'
   , terminate
   , toEventTarget
+  , module Options
   ) where
 
 import Prelude
@@ -22,6 +23,9 @@ import Web.Internal.FFI (unsafeReadProtoTagged)
 import Web.Worker.MessageEvent (MessageEvent)
 import Web.Worker.Types (Transferable)
 import Web.Worker.Options (WorkerOptions, toJsOptions)
+import Web.Worker.Options (WorkerOptions, Credentials(..),
+                          WorkerType(..), defaultWorkerOptions
+                          ) as Options
 
 foreign import data Worker :: Type