pituicat/src/Affection/MessageBus/Util.hs

9 lines
270 B
Haskell
Raw Normal View History

2017-11-26 21:26:41 +00:00
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)
2017-11-27 00:43:43 +00:00
newBroadcastChannel = atomically $ Channel <$> newBroadcastTChan