diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-01 12:32:49 -0800 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-01 12:32:49 -0800 |
| commit | f4fcc6c1970ec8d63e185e49dff65a6bd77011ad (patch) | |
| tree | 5472de9cdb8afd6b15752f796ece829bf9e0316a /src/Network/BitTorrent/Core/PeerAddr.hs | |
| parent | 2749007675a6ff28979fa793b48ffe910635c708 (diff) | |
| parent | 5dc7a19e42da1ee1cc3570ca74a55c32d7d243e0 (diff) | |
Merge pull request #2 from DanielG/master
Fix building with aeson >= 0.6.2.0
Diffstat (limited to 'src/Network/BitTorrent/Core/PeerAddr.hs')
| -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 e58aaa89..ed2dc672 100644 --- a/src/Network/BitTorrent/Core/PeerAddr.hs +++ b/src/Network/BitTorrent/Core/PeerAddr.hs | |||
| @@ -62,7 +62,7 @@ data PeerAddr = PeerAddr { | |||
| 62 | , peerPort :: {-# UNPACK #-} !PortNumber | 62 | , peerPort :: {-# UNPACK #-} !PortNumber |
| 63 | } deriving (Show, Eq, Ord, Typeable) | 63 | } deriving (Show, Eq, Ord, Typeable) |
| 64 | 64 | ||
| 65 | $(deriveJSON (L.map toLower . L.dropWhile isLower) ''PeerAddr) | 65 | $(deriveJSON defaultOptions { fieldLabelModifier = (L.map toLower . L.dropWhile isLower) } ''PeerAddr) |
| 66 | 66 | ||
| 67 | -- | The tracker "announce query" compatible encoding. | 67 | -- | The tracker "announce query" compatible encoding. |
| 68 | instance BEncode PeerAddr where | 68 | instance BEncode PeerAddr where |