8 files changed, 2 insertions, 72 deletions

diff --git a/src/Network/BitTorrent/Core/NodeInfo.hs b/src/Network/BitTorrent/Core/NodeInfo.hs
index fa20caf5..fe17c097 100644
--- a/src/Network/BitTorrent/Core/NodeInfo.hs
+++ b/src/Network/BitTorrent/Core/NodeInfo.hs
@@ -39,8 +39,6 @@ module Network.BitTorrent.Core.NodeInfo
        ) where
 
 import Control.Applicative
-import Data.Aeson (ToJSON, FromJSON)
-import Data.Aeson.TH
 import Data.Bits
 import Data.ByteString as BS
 import Data.ByteString.Char8 as BC
@@ -62,7 +60,6 @@ import System.Entropy
 import Text.PrettyPrint as PP hiding ((<>))
 import Text.PrettyPrint.Class
 
-import Data.Torrent.JSON
 import Network.BitTorrent.Core.PeerAddr (PeerAddr (..))
 
 {-----------------------------------------------------------------------
@@ -76,7 +73,7 @@ import Network.BitTorrent.Core.PeerAddr (PeerAddr (..))
 --   Normally, /this/ node id should be saved between invocations
 --   of the client software.
 newtype NodeId = NodeId ByteString
-  deriving (Show, Eq, Ord, BEncode, FromJSON, ToJSON, Typeable)
+  deriving (Show, Eq, Ord, BEncode, Typeable)
 
 nodeIdSize :: Int
 nodeIdSize = 20
@@ -146,8 +143,6 @@ data NodeAddr a = NodeAddr
   , nodePort :: {-# UNPACK #-} !PortNumber
   } deriving (Eq, Typeable, Functor)
 
-$(deriveJSON omitRecordPrefix ''NodeAddr)
-
 instance Show a => Show (NodeAddr a) where
   showsPrec i NodeAddr {..}
     = showsPrec i nodeHost <> showString ":" <> showsPrec i nodePort
@@ -202,8 +197,6 @@ data NodeInfo a = NodeInfo
   , nodeAddr :: !(NodeAddr a)
   } deriving (Show, Eq, Functor)
 
-$(deriveJSON omitRecordPrefix ''NodeInfo)
-
 instance Eq a => Ord (NodeInfo a) where
   compare = comparing nodeId
 
diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs
index adf64c7f..92fb83a7 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -33,8 +33,6 @@ module Network.BitTorrent.Core.PeerAddr
 
 import Control.Applicative
 import Control.Monad
-import Data.Aeson (ToJSON, FromJSON)
-import Data.Aeson.TH
 import Data.BEncode   as BS
 import Data.BEncode.BDict (BKey)
 import Data.ByteString.Char8 as BS8
@@ -58,7 +56,6 @@ import Text.Read (readMaybe)
 import qualified Text.ParserCombinators.ReadP as RP
 
 import Data.Torrent.InfoHash
-import Data.Torrent.JSON
 import Network.BitTorrent.Core.PeerId
 
 
@@ -66,9 +63,6 @@ import Network.BitTorrent.Core.PeerId
 --  Port number
 -----------------------------------------------------------------------}
 
-deriving instance ToJSON PortNumber
-deriving instance FromJSON PortNumber
-
 instance BEncode PortNumber where
   toBEncode   = toBEncode    .  fromEnum
   fromBEncode = fromBEncode >=> portNumber
@@ -208,8 +202,6 @@ data PeerAddr a = PeerAddr
   , peerPort :: {-# UNPACK #-} !PortNumber
   } deriving (Show, Eq, Ord, Typeable, Functor)
 
-$(deriveJSON omitRecordPrefix ''PeerAddr)
-
 peer_ip_key, peer_id_key, peer_port_key :: BKey
 peer_ip_key   = "ip"
 peer_id_key   = "peer id"
diff --git a/src/Network/BitTorrent/Core/PeerId.hs b/src/Network/BitTorrent/Core/PeerId.hs
index f8d69e8b..a180ff30 100644
--- a/src/Network/BitTorrent/Core/PeerId.hs
+++ b/src/Network/BitTorrent/Core/PeerId.hs
@@ -34,7 +34,6 @@ module Network.BitTorrent.Core.PeerId
        ) where
 
 import Control.Applicative
-import Data.Aeson
 import Data.BEncode as BE
 import Data.ByteString as BS
 import Data.ByteString.Internal as BS
@@ -62,14 +61,13 @@ import Text.PrettyPrint hiding ((<>))
 import Text.PrettyPrint.Class
 import Text.Read        (readMaybe)
 
-import Data.Torrent.JSON ()
 import Network.BitTorrent.Core.Fingerprint
 
 -- TODO use unpacked Word160 form (length is known statically)
 
 -- | Peer identifier is exactly 20 bytes long bytestring.
 newtype PeerId = PeerId { getPeerId :: ByteString }
-  deriving (Show, Eq, Ord, BEncode, ToJSON, FromJSON, Typeable)
+  deriving (Show, Eq, Ord, BEncode, Typeable)
 
 peerIdLen :: Int
 peerIdLen = 20
diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index 6e5b960a..16c124e9 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -57,7 +57,6 @@ module Network.BitTorrent.Exchange.Block
 
 import Prelude hiding (span)
 import Control.Applicative
-import Data.Aeson.TH
 import Data.ByteString as BS hiding (span)
 import Data.ByteString.Lazy as BL hiding (span)
 import Data.ByteString.Lazy.Builder as BS
@@ -70,7 +69,6 @@ import Numeric
 import Text.PrettyPrint as PP hiding ((<>))
 import Text.PrettyPrint.Class
 
-import Data.Torrent.JSON
 import Data.Torrent.Piece
 
 {-----------------------------------------------------------------------
@@ -114,8 +112,6 @@ data BlockIx = BlockIx {
   , ixLength :: {-# UNPACK #-} !BlockSize
   } deriving (Show, Eq, Typeable)
 
-$(deriveJSON omitRecordPrefix ''BlockIx)
-
 -- | First block in torrent. Useful for debugging.
 instance Default BlockIx where
   def = BlockIx 0 0 defaultTransferSize
diff --git a/src/Network/BitTorrent/Exchange/Connection/Status.hs b/src/Network/BitTorrent/Exchange/Connection/Status.hs
index b4b10371..f6abc580 100644
--- a/src/Network/BitTorrent/Exchange/Connection/Status.hs
+++ b/src/Network/BitTorrent/Exchange/Connection/Status.hs
@@ -34,14 +34,12 @@ module Network.BitTorrent.Exchange.Connection.Status
        ) where
 
 import Control.Lens
-import Data.Aeson.TH
 import Data.Default
 import Data.Maybe
 import Data.Monoid
 import Text.PrettyPrint as PP hiding ((<>))
 import Text.PrettyPrint.Class
 
-import Data.Torrent.JSON
 import Network.BitTorrent.Exchange.Message
 
 
@@ -61,7 +59,6 @@ data PeerStatus = PeerStatus
   } deriving (Show, Eq, Ord)
 
 $(makeLenses ''PeerStatus)
-$(deriveJSON omitLensPrefix ''PeerStatus)
 
 instance Pretty PeerStatus where
   pretty PeerStatus {..} =
@@ -104,7 +101,6 @@ data ConnectionStatus = ConnectionStatus
   } deriving (Show, Eq)
 
 $(makeLenses ''ConnectionStatus)
-$(deriveJSON omitRecordPrefix ''ConnectionStatus)
 
 instance Pretty ConnectionStatus where
   pretty ConnectionStatus {..} =
diff --git a/src/Network/BitTorrent/Internal/Cache.hs b/src/Network/BitTorrent/Internal/Cache.hs
index 5c3f379b..8c74467a 100644
--- a/src/Network/BitTorrent/Internal/Cache.hs
+++ b/src/Network/BitTorrent/Internal/Cache.hs
@@ -32,7 +32,6 @@ module Network.BitTorrent.Internal.Cache
        ) where
 
 import Control.Applicative
-import Data.Aeson
 import Data.Monoid
 import Data.Default
 import Data.Time
@@ -56,30 +55,6 @@ data Cached a = Cached
 
 -- INVARIANT: minUpdateInterval <= updateInterval
 
--- | Examples:
---
---     { data: "some string",
---       observed: "2014-03-20T19:49:39.505Z",
---       expires: "2014-03-20T19:50:10.881Z" }
---
---   or:
---
---     { expired: "2014-03-20T19:50:10.881Z" }
---
-instance ToJSON a => ToJSON (Cached a) where
-  toJSON Cached {..}
-    | currentTime < expireTime = object
-      [ "observed" .= posixSecondsToUTCTime lastUpdated
-      , "expires"  .= posixSecondsToUTCTime expireTime
-      , "data"     .= cachedData
-      ]
-    | otherwise = object
-      [ "expired"  .= posixSecondsToUTCTime expireTime
-      ]
-    where
-      expireTime  = currentTime + updateInterval
-      currentTime = unsafePerformIO getPOSIXTime
-
 instance Default (Cached a) where
   def = mempty
 
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