thunderstrike/purescript-node-workers
thunderstrike/purescript-node-workers
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: workerdata

Browse Source
This commit is contained in:
bingus 2023-12-24 13:17:34 -06:00
parent 2a4892ce9c
commit 30eed65e65
Signed by: orion
GPG Key ID: 6D4165AE4C928719
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Node.Worker.js
View File

@ -14,3 +14,6 @@ export const resourceLimitsImpl = () => worker.resourceLimits
/** @type {(a: object) => () => void} */ /** @type {(a: object) => () => void} */
export const markUntransferableImpl = a => () => worker.markAsUntransferable(a) export const markUntransferableImpl = a => () => worker.markAsUntransferable(a)
/** @type {() => unknown} */
export const workerDataImpl = () => worker.workerData

9
src/Node.Worker.purs
View File

@ -1,10 +1,13 @@
module Node.Worker (ResourceLimits, shareEnv, resourceLimits, isMainThread, threadId, markUntransferable) where module Node.Worker (ResourceLimits, shareEnv, resourceLimits, isMainThread, threadId, markUntransferable, workerData) where
import Prelude import Prelude
import Control.Monad.Error.Class (liftEither)
import Data.Bifunctor (lmap)
import Data.Either (hush) import Data.Either (hush)
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Effect (Effect) import Effect (Effect)
import Effect.Exception (error)
import Foreign (Foreign) import Foreign (Foreign)
import Node.Worker.Serializable (class Serializable, deserialize, serialize) import Node.Worker.Serializable (class Serializable, deserialize, serialize)
@ -13,6 +16,10 @@ foreign import isMainThread :: Effect Boolean
foreign import threadId :: Effect Int foreign import threadId :: Effect Int
foreign import markUntransferableImpl :: Foreign -> Effect Unit foreign import markUntransferableImpl :: Foreign -> Effect Unit
foreign import workerDataImpl :: Effect Foreign
workerData :: forall a. Serializable a => Effect a
workerData = bind workerDataImpl (liftEither <<< lmap error <<< deserialize)
markUntransferable :: forall a. Serializable a => a -> Effect Unit markUntransferable :: forall a. Serializable a => a -> Effect Unit
markUntransferable = markUntransferableImpl <<< serialize markUntransferable = markUntransferableImpl <<< serialize