receiveMessage :: MessageChannel a -> IO a
receiveMessage = atomically . receiveMessageSTM
receiveMessage :: MessageChannel a -> IO a
receiveMessage = atomically . receiveMessageSTM
receiveMessage = atomically . receiveMessageSTM