Use Data.IP for peerIP in PeerAddr type

1 files changed, 0 insertions, 8 deletions

diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs
index fe7686cb..6249cdc4 100644
--- a/src/Network/BitTorrent/Tracker/Message.hs
+++ b/src/Network/BitTorrent/Tracker/Message.hs
@@ -436,12 +436,6 @@ data PeerList
   | CompactPeerList { getPeerList :: [PeerAddr] }
     deriving (Show, Eq, Typeable)
 
-instance ToJSON PeerList where
-  toJSON      = toJSON . getPeerList
-
-instance FromJSON PeerList where
-  parseJSON v = PeerList <$> parseJSON v
-
 putCompactPeerList :: S.Putter [PeerAddr]
 putCompactPeerList = mapM_ put
 
@@ -485,8 +479,6 @@ data AnnounceInfo =
      , respWarning     :: !(Maybe Text)
      } deriving (Show, Typeable)
 
-$(deriveJSON omitRecordPrefix ''AnnounceInfo)
-
 -- | HTTP tracker protocol compatible encoding.
 instance BEncode AnnounceInfo where
   toBEncode (Failure t)        = toDict $