Derive Show and Eq instances for Notification
commit17100abacbadcdbffe4cdadf4d70f2285a52e063
authorMatvey Aksenov <matvey.aksenov@gmail.com>
dateFri 31 Mar 2017, 07:52 (10 years ago)
parent5d57651
src/Database/PostgreSQL/Simple/Notification.hs+1−1
@@ -58,7 +58,7 @@ data Notification = Notification
5858 { notificationPid :: {-# UNPACK #-} !CPid
5959 , notificationChannel :: {-# UNPACK #-} !B.ByteString
6060 , notificationData :: {-# UNPACK #-} !B.ByteString
61− }
61+ } deriving (Show, Eq)
6262
6363convertNotice :: PQ.Notify -> Notification
6464convertNotice PQ.Notify{..}