withConnection :: WS.PendingConnection -> (WS.Connection -> IO r) -> IO r
withConnection pending =
    bracket
    (WS.acceptRequest pending)
    (\conn -> WS.sendClose conn ("closing" :: ByteString))
withConnection :: WS.PendingConnection -> (WS.Connection -> IO r) -> IO r
withConnection pending =
    bracket
    (WS.acceptRequest pending)
    (\conn -> WS.sendClose conn ("closing" :: ByteString))
withConnection pending =
    bracket
    (WS.acceptRequest pending)
    (\conn -> WS.sendClose conn ("closing" :: ByteString))