diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Network/BitTorrent/Core/PeerAddr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs index 6ef20f06..c9ec6b96 100644 --- a/src/Network/BitTorrent/Core/PeerAddr.hs +++ b/src/Network/BitTorrent/Core/PeerAddr.hs | |||
| @@ -136,7 +136,7 @@ instance Serialize IPv6 where | |||
| 136 | -- compact list encoding. | 136 | -- compact list encoding. |
| 137 | data PeerAddr a = PeerAddr | 137 | data PeerAddr a = PeerAddr |
| 138 | { peerId :: !(Maybe PeerId) | 138 | { peerId :: !(Maybe PeerId) |
| 139 | , peerHost :: a | 139 | , peerHost :: !a |
| 140 | , peerPort :: {-# UNPACK #-} !PortNumber | 140 | , peerPort :: {-# UNPACK #-} !PortNumber |
| 141 | } deriving (Show, Eq, Typeable, Functor) | 141 | } deriving (Show, Eq, Typeable, Functor) |
| 142 | 142 | ||