newtype Sink p = Sink{..} deriving (Eq)

This allows me to compare sockets directly.

```haskell
newtype Sink p = Sink
    { unSink :: MVar (E.Iteratee (Message p) IO ())
    } deriving (Eq)
```