From 1ae7d4877a2a30131babbee54bc0c24651eaba90 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sat, 7 Dec 2013 23:10:27 +0400
Subject: Move JSON options to separate module

---
 src/Data/Torrent/Progress.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Data/Torrent/Progress.hs')

diff --git a/src/Data/Torrent/Progress.hs b/src/Data/Torrent/Progress.hs
index 34f8f299..ffcbf2aa 100644
--- a/src/Data/Torrent/Progress.hs
+++ b/src/Data/Torrent/Progress.hs
@@ -49,6 +49,8 @@ import Network.HTTP.Types.QueryLike
 import Text.PrettyPrint as PP
 import Text.PrettyPrint.Class
 
+import Data.Torrent.JSON
+
 
 -- | Progress data is considered as dynamic within one client
 -- session. This data also should be shared across client application
@@ -62,7 +64,7 @@ data Progress = Progress
   } deriving (Show, Read, Eq)
 
 $(makeLenses ''Progress)
-$(deriveJSON defaultOptions { fieldLabelModifier = L.tail } ''Progress)
+$(deriveJSON omitLensPrefix ''Progress)
 
 -- | UDP tracker compatible encoding.
 instance Serialize Progress where
-- 
cgit v1.2.3