diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-15 21:35:12 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-15 21:35:12 +0400 |
| commit | 1bfd9cdb74a7ba70c54bf84949889253032f8869 (patch) | |
| tree | e295265abc160786c64a800ad7e0b288273fef02 /src/Network/BitTorrent | |
| parent | 110ca6eeeaf60c59992546614f31361ff058ae0f (diff) | |
Strictify peerHost field
Diffstat (limited to 'src/Network/BitTorrent')
| -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 | ||