@@ -58,7 +58,7 @@ data Notification = Notification
58 { notificationPid :: {-# UNPACK #-} !CPid
58 { notificationPid :: {-# UNPACK #-} !CPid
59 , notificationChannel :: {-# UNPACK #-} !B.ByteString
59 , notificationChannel :: {-# UNPACK #-} !B.ByteString
60 , notificationData :: {-# UNPACK #-} !B.ByteString
60 , notificationData :: {-# UNPACK #-} !B.ByteString
61− }
61+ } deriving (Show, Eq)
63convertNotice :: PQ.Notify -> Notification
63convertNotice :: PQ.Notify -> Notification
64convertNotice PQ.Notify{..}
64convertNotice PQ.Notify{..}