summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Exchange/Status.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Status.hs')
-rw-r--r--src/Network/BitTorrent/Exchange/Status.hs4
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
40instance Default PeerStatus where 40instance 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
61instance Default SessionStatus where 61instance Default SessionStatus where
62 def = SessionStatus def def 62 def = SessionStatus def def