chanText :: TMChan T.Text -> ActionM ()
chanText = text <=< liftIO . fmap fromJust . SIO.awaitResult
chanText :: TMChan T.Text -> ActionM ()
chanText = text <=< liftIO . fmap fromJust . SIO.awaitResult
chanText = text <=< liftIO . fmap fromJust . SIO.awaitResult