diff options
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 |