diff options
| -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 03a71bbe..ae323e09 100644 --- a/src/Network/BitTorrent/Exchange/Status.hs +++ b/src/Network/BitTorrent/Exchange/Status.hs | |||
| @@ -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 |