pituicat/src/Affection/MessageBus/Util.hs
2017-11-26 22:26:41 +01:00

9 lines
258 B
Haskell

module Affection.MessageBus.Util where
import Affection.MessageBus.Class
import Affection.MessageBus.Message
import Control.Concurrent.STM as STM
newBroadcastChannel :: (Message msg) => IO (Channel msg)
newBroadcastChannel = atomically $ newBroadcastTChan