diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:14:13 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:14:13 +0400 |
| commit | 41f229b5746501738800d721fb19083e32516f8c (patch) | |
| tree | 8a469cf08a3d5d377fb8679bba759393cc7d8ef2 /src/Network/BitTorrent/Core/PeerId.hs | |
| parent | 923abc9ee7576f2d3e1b7e2b2d5a32ed5d2f21c9 (diff) | |
Remove ClientVersion newtype
Diffstat (limited to 'src/Network/BitTorrent/Core/PeerId.hs')
| -rw-r--r-- | src/Network/BitTorrent/Core/PeerId.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Core/PeerId.hs b/src/Network/BitTorrent/Core/PeerId.hs index 8883656b..a212df3d 100644 --- a/src/Network/BitTorrent/Core/PeerId.hs +++ b/src/Network/BitTorrent/Core/PeerId.hs | |||
| @@ -285,4 +285,4 @@ clientInfo pid = either (const def) id $ runGet getCI (getPeerId pid) | |||
| 285 | getClientImpl = parseImpl <$> getByteString 2 | 285 | getClientImpl = parseImpl <$> getByteString 2 |
| 286 | getClientVersion = mkVer <$> getByteString 4 | 286 | getClientVersion = mkVer <$> getByteString 4 |
| 287 | where | 287 | where |
| 288 | mkVer bs = ClientVersion $ Version [fromMaybe 0 $ readMaybe $ BC.unpack bs] [] | 288 | mkVer bs = Version [fromMaybe 0 $ readMaybe $ BC.unpack bs] [] |