getSink :: Protocol p => WebSockets p (Sink p)
getSink = WebSockets $ envSink <$> ask
getSink :: Protocol p => WebSockets p (Sink p)
getSink = WebSockets $ envSink <$> ask
getSink = WebSockets $ envSink <$> ask