Packages

purerl_test

0.1.10
0.1.10 0.1.9 0.1.8 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

A testing library for PureScript (`purerl`) projects.

HexDocs

Current section

Files

Jump to
Readme
10 Versions
2 Dependencies
Dependants
Files
Activity
purerl_test src PurerlTest Reporter Bus.purs
Raw

src/PurerlTest/Reporter/Bus.purs 

module PurerlTest.Reporter.Bus

  ( subscribe

  , unsubscribe

  , send

  , Message(..)

  ) where



import Prelude



import Effect (Effect)

import Effect.Class (class MonadEffect)

import Erl.Atom (Atom)

import Erl.Atom as Atom

import Erl.Process (class HasSelf)

import PurerlTest.Types (SuiteStatus)

import SimpleBus (Bus, SubscriptionRef)

import SimpleBus as SimpleBus



data Message

  = SuiteMessage SuiteStatus

  | AllDone Int



name :: Atom

name = Atom.atom "PurerlTest.Reporter.Bus"



bus :: Bus Atom Message

bus = SimpleBus.bus name



subscribe

  :: forall message m

   . HasSelf m message

  => MonadEffect m

  => (Message -> message)

  -> m SubscriptionRef

subscribe f = SimpleBus.subscribe bus f



unsubscribe :: SubscriptionRef -> Effect Unit

unsubscribe = SimpleBus.unsubscribe



send :: Message -> Effect Unit

send result = SimpleBus.raise bus result