purty and export MessageEvent.ports

Author: gbagan

src/Web/Worker/MessageEvent.purs

@@ -4,6 +4,7 @@ module Web.Worker.MessageEvent
   , data_
   , lastEventId
   , origin
+  , ports
   , module Types
   )
   where

src/Web/Worker/Worker.purs

@@ -13,8 +13,7 @@ module Web.Worker.Worker
   , postMessage'
   , terminate
   , toEventTarget
-  )
-  where
+  ) where
 
 import Prelude
 import Data.Maybe (Maybe)
@@ -28,21 +27,26 @@ import Web.Worker.Types (Transferable)
 
 foreign import data Worker :: Type
 
-
 fromEventTarget :: EventTarget -> Maybe Worker
 fromEventTarget = unsafeReadProtoTagged "Worker"
 
 toEventTarget :: Worker -> EventTarget
 toEventTarget = unsafeCoerce
 
-data WorkerType = Classic | Module
-data Credentials = Omit | SameOrigin | Include
+data WorkerType
+  = Classic
+  | Module
 
-type WorkerOptions =
-  { credentials :: Credentials
-  , name :: String
-  , type :: WorkerType 
-  }
+data Credentials
+  = Omit
+  | SameOrigin
+  | Include
+
+type WorkerOptions
+  = { credentials :: Credentials
+    , name :: String
+    , type :: WorkerType
+    }
 
 defaultWorkerOptions :: WorkerOptions
 defaultWorkerOptions =
@@ -54,13 +58,13 @@ defaultWorkerOptions =
 foreign import _new :: String -> { name :: String, credentials :: String, type :: String } -> Effect Worker
 
 new :: String -> WorkerOptions -> Effect Worker
-new url {name, type: t, credentials} = _new url
+new url { name, type: t, credentials } =
+  _new url
     { name
     , credentials: show credentials
     , type: show t
     }
 
-
 foreign import postMessageImpl :: forall msg. msg -> Array Transferable -> Worker -> Effect Unit
 
 postMessage :: forall msg. msg -> Worker -> Effect Unit
@@ -86,4 +90,4 @@ instance Show Credentials where
   show = case _ of
     Omit       -> "omit"
     SameOrigin -> "same-origin"
-    Include    -> "include"
+    Include    -> "include"