git.iko.soy/typeable/postgresql-simple
on master help sign in
Unpack the fields of the Notification structure
ae27c48Leon P Smith
src/Database/PostgreSQL/Simple/Notification.hs+3−3
compare with master
unifiedsplit
@@ -55,9 +55,9 @@ import Control.Concurrent ( threadWaitReadSTM )
55#endif
55#endif
56
56
57data Notification = Notification
57data Notification = Notification
58− { notificationPid :: !CPid
58+ { notificationPid :: {-# UNPACK #-} !CPid
59− , notificationChannel :: !B.ByteString
59+ , notificationChannel :: {-# UNPACK #-} !B.ByteString
60− , notificationData :: !B.ByteString
60+ , notificationData :: {-# UNPACK #-} !B.ByteString
61 }
61 }
62
62
63convertNotice :: PQ.Notify -> Notification
63convertNotice :: PQ.Notify -> Notification