src/client/elm/Mailbox.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module Mailbox
  ( address
  , signal
  ) where

import Signal exposing (Mailbox, Address)

import Action exposing (Action)

mailbox : Mailbox Action
mailbox = Signal.mailbox Action.NoOp

address : Address Action
address = mailbox.address

signal : Signal Action
signal = mailbox.signal