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/Exchange/Status.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/Exchange/Status.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Status.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Status.hs b/src/Network/BitTorrent/Exchange/Status.hs index 7920f2a1..03a71bbe 100644 --- a/src/Network/BitTorrent/Exchange/Status.hs +++ b/src/Network/BitTorrent/Exchange/Status.hs | |||
| @@ -35,7 +35,7 @@ data PeerStatus = PeerStatus { | |||
| 35 | } deriving (Show, Eq) | 35 | } deriving (Show, Eq) |
| 36 | 36 | ||
| 37 | $(makeLenses ''PeerStatus) | 37 | $(makeLenses ''PeerStatus) |
| 38 | $(deriveJSON L.tail ''PeerStatus) | 38 | $(deriveJSON defaultOptions { fieldLabelModifier = L.tail } ''PeerStatus) |
| 39 | 39 | ||
| 40 | instance Default PeerStatus where | 40 | instance Default PeerStatus where |
| 41 | def = PeerStatus True False | 41 | def = PeerStatus True False |