@@ -82,13 +82,13 @@ data Connection = Connection {
82-- | Event on an endpoint.
82-- | Event on an endpoint.
83data Event =
83data Event =
84 -- | Received a message
84 -- | Received a message
85− Received ConnectionId [ByteString]
85+ Received {-# UNPACK #-} !ConnectionId [ByteString]
86 -- | Connection closed
86 -- | Connection closed
87− | ConnectionClosed ConnectionId
87+ | ConnectionClosed {-# UNPACK #-} !ConnectionId
88 -- | Connection opened
88 -- | Connection opened
90 -- 'ConnectionId's need not be allocated contiguously.
90 -- 'ConnectionId's need not be allocated contiguously.
91− | ConnectionOpened ConnectionId Reliability EndPointAddress
91+ | ConnectionOpened {-# UNPACK #-} !ConnectionId Reliability EndPointAddress
92 -- | Received multicast
92 -- | Received multicast
93 | ReceivedMulticast MulticastAddress [ByteString]
93 | ReceivedMulticast MulticastAddress [ByteString]
94 -- | The endpoint got closed (manually, by a call to closeEndPoint or closeTransport)
94 -- | The endpoint got closed (manually, by a call to closeEndPoint or closeTransport)