2 files changed, 0 insertions, 20 deletions

diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs
index ffe36c82..cdc07af8 100644
--- a/src/Network/BitTorrent/Tracker/Message.hs
+++ b/src/Network/BitTorrent/Tracker/Message.hs
@@ -97,7 +97,6 @@ module Network.BitTorrent.Tracker.Message
 
 import Control.Applicative
 import Control.Monad
-import Data.Aeson.TH
 import Data.BEncode as BE hiding (Result)
 import Data.BEncode.BDict as BE
 import Data.ByteString as BS
@@ -126,7 +125,6 @@ import System.Entropy
 import Text.Read (readMaybe)
 
 import Data.Torrent.InfoHash
-import Data.Torrent.JSON
 import Data.Torrent.Progress
 import Network.BitTorrent.Core
 
@@ -150,8 +148,6 @@ data AnnounceEvent
   | Completed
     deriving (Show, Read, Eq, Ord, Enum, Bounded, Typeable)
 
-$(deriveJSON omitRecordPrefix ''AnnounceEvent)
-
 -- | HTTP tracker protocol compatible encoding.
 instance QueryValueLike AnnounceEvent where
   toQueryValue e = toQueryValue (Char.toLower x : xs)
@@ -224,8 +220,6 @@ data AnnounceQuery = AnnounceQuery
    , reqEvent      :: Maybe AnnounceEvent
    } deriving (Show, Eq, Typeable)
 
-$(deriveJSON omitRecordPrefix ''AnnounceQuery)
-
 -- | UDP tracker protocol compatible encoding.
 instance Serialize AnnounceQuery where
   put AnnounceQuery {..} = do
@@ -636,8 +630,6 @@ data ScrapeEntry = ScrapeEntry {
   , siName       :: !(Maybe Text)
   } deriving (Show, Eq, Typeable)
 
-$(deriveJSON omitRecordPrefix ''ScrapeEntry)
-
 -- | HTTP tracker protocol compatible encoding.
 instance BEncode ScrapeEntry where
   toBEncode ScrapeEntry {..} = toDict $
diff --git a/src/Network/BitTorrent/Tracker/Session.hs b/src/Network/BitTorrent/Tracker/Session.hs
index 5aa9c0eb..560acf84 100644
--- a/src/Network/BitTorrent/Tracker/Session.hs
+++ b/src/Network/BitTorrent/Tracker/Session.hs
@@ -47,8 +47,6 @@ import Control.Exception
 import Control.Concurrent
 import Control.Concurrent.Chan.Split as CS
 import Control.Monad
-import Data.Aeson
-import Data.Aeson.TH
 import Data.Default
 import Data.Fixed
 import Data.Foldable as F
@@ -60,7 +58,6 @@ import Data.Traversable
 import Network.URI
 
 import Data.Torrent.InfoHash
-import Data.Torrent.JSON
 import Network.BitTorrent.Core
 import Network.BitTorrent.Internal.Cache
 import Network.BitTorrent.Internal.Types
@@ -95,8 +92,6 @@ data LastScrape = LastScrape
   , scrapeSeeders  :: Maybe Int
   } deriving (Show, Eq)
 
-$(deriveJSON omitRecordPrefix ''LastScrape)
-
 -- | Single tracker session.
 data TrackerSession = TrackerSession
   { -- | Used to notify 'Stopped' and 'Completed' events.
@@ -109,13 +104,6 @@ data TrackerSession = TrackerSession
   , trackerScrape :: Cached LastScrape
   }
 
-instance ToJSON (TierEntry TrackerSession) where
-  toJSON (uri, TrackerSession {..}) = object
-    [ "uri"    .= uri
-    , "peers"  .= trackerPeers
-    , "scrape" .= trackerScrape
-    ]
-
 -- | Not contacted.
 instance Default TrackerSession where
   def = TrackerSession Nothing def def