@@ -75,7 +75,10 @@ data Connection = Connection {
7575 connectionHandle :: {-# UNPACK #-} !(MVar PQ.Connection)
7676 , connectionObjects :: {-# UNPACK #-} !(MVar TypeInfoCache)
7777 , connectionTempNameCounter :: {-# UNPACK #-} !(IORef Int64)
78− }
78+ } deriving (Typeable)
79+
80+instance Eq Connection where
81+ x == y = connectionHandle x == connectionHandle y
7982
8083data SqlError = SqlError {
8184 sqlState :: ByteString