-- | Sends a message through a message channel.
sendMessage :: MessageChannel a -- ^ The channel
            -> a                -- ^ The message to send
            -> IO ()
sendMessage chan = atomically . sendMessageSTM chan
sendMessage :: MessageChannel a -- ^ The channel
            -> a                -- ^ The message to send
            -> IO ()
sendMessage chan = atomically . sendMessageSTM chan
sendMessage chan = atomically . sendMessageSTM chan