-- | Get the underlying protocol
getProtocol :: WebSockets p p
getProtocol = WebSockets $ envProtocol <$> ask
getProtocol :: WebSockets p p
getProtocol = WebSockets $ envProtocol <$> ask
getProtocol = WebSockets $ envProtocol <$> ask