1 files changed, 0 insertions, 8 deletions

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"