@@ -55,9 +55,9 @@ import Control.Concurrent ( threadWaitReadSTM )
5555#endif
5656
5757data Notification = Notification
58− { notificationPid :: !CPid
59− , notificationChannel :: !B.ByteString
60− , notificationData :: !B.ByteString
58+ { notificationPid :: {-# UNPACK #-} !CPid
59+ , notificationChannel :: {-# UNPACK #-} !B.ByteString
60+ , notificationData :: {-# UNPACK #-} !B.ByteString
6161 }
6262
6363convertNotice :: PQ.Notify -> Notification