jaspervdj/websockets — pull request #33 by gertcuykens (2012-11-13 02:18:33+00:00)
Title: newtype Sink p = Sink{..} deriving (Eq)

This allows me to compare sockets directly.

```haskell
type Client = (Text, WS.Sink WS.Hybi10)

removeClient :: Client -> [Client] -> [Client]
removeClient c = filter ((/= snd c) . snd)
```