useSocket :: IOLoop a -> (Socket a -> IO b) -> IO b
useSocket p = withMVar (pollLock p)
useSocket :: IOLoop a -> (Socket a -> IO b) -> IO b
useSocket p = withMVar (pollLock p)
useSocket p = withMVar (pollLock p)