diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-02 00:55:06 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-02 00:55:06 +0400 |
| commit | cc1f6959280431a3554e0c0f01960b7b67826c65 (patch) | |
| tree | 62d60709efc26889dfb3f4588ef546ece63c06d4 /src/Network/BitTorrent/Exchange | |
| parent | 9a73e365f4c29080ab6ce04290b36e3189171289 (diff) | |
| parent | af9573a7519e76c10a0cca168355ca866d22c429 (diff) | |
Merge branch 'master' of https://github.com/cobit/bittorrent
Diffstat (limited to 'src/Network/BitTorrent/Exchange')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Status.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Exchange/Status.hs b/src/Network/BitTorrent/Exchange/Status.hs index 7920f2a1..ae323e09 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 |
| @@ -56,7 +56,7 @@ data SessionStatus = SessionStatus { | |||
| 56 | } deriving (Show, Eq) | 56 | } deriving (Show, Eq) |
| 57 | 57 | ||
| 58 | $(makeLenses ''SessionStatus) | 58 | $(makeLenses ''SessionStatus) |
| 59 | $(deriveJSON L.tail ''SessionStatus) | 59 | $(deriveJSON defaultOptions { fieldLabelModifier = L.tail } ''SessionStatus) |
| 60 | 60 | ||
| 61 | instance Default SessionStatus where | 61 | instance Default SessionStatus where |
| 62 | def = SessionStatus def def | 62 | def = SessionStatus def def |