diff --git a/src/Network/WebSockets/Monad.hs b/src/Network/WebSockets/Monad.hs
--- a/src/Network/WebSockets/Monad.hs
+++ b/src/Network/WebSockets/Monad.hs
@@ -72,7 +72,7 @@
 -- | Used for asynchronous sending.
 newtype Sink p = Sink
     { unSink :: MVar (E.Iteratee (Message p) IO ())
-    }
+    } deriving (Eq)
 
 -- | The monad in which you can write WebSocket-capable applications
 newtype WebSockets p a = WebSockets
diff --git a/websockets.cabal b/websockets.cabal
--- a/websockets.cabal
+++ b/websockets.cabal
@@ -1,5 +1,5 @@
 Name:    websockets
-Version: 0.7.1.1
+Version: 0.7.2.0
 
 Synopsis:
   A sensible and clean way to write WebSocket-capable servers in Haskell.
@@ -69,7 +69,7 @@
     attoparsec-enumerator    >= 0.2    && < 0.4,
     base                     >= 4      && < 5,
     base64-bytestring        >= 0.1    && < 1.1,
-    binary                   >= 0.5    && < 0.6,
+    binary                   >= 0.5    && < 0.7,
     blaze-builder            >= 0.3    && < 0.4,
     blaze-builder-enumerator >= 0.2    && < 0.3,
     bytestring               >= 0.9    && < 0.11,
@@ -102,7 +102,7 @@
     attoparsec-enumerator    >= 0.2    && < 0.4,
     base                     >= 4      && < 5,
     base64-bytestring        >= 0.1    && < 1.1,
-    binary                   >= 0.5    && < 0.6,
+    binary                   >= 0.5    && < 0.7,
     blaze-builder            >= 0.3    && < 0.4,
     blaze-builder-enumerator >= 0.2    && < 0.3,
     bytestring               >= 0.9    && < 0.11,