1 files changed, 0 insertions, 51 deletions

diff --git a/src/Network/BitTorrent/Exchange/Message/Extended.hs b/src/Network/BitTorrent/Exchange/Message/Extended.hs
deleted file mode 100644
index 5d26b582..00000000
--- a/src/Network/BitTorrent/Exchange/Message/Extended.hs
+++ /dev/null
@@ -1,51 +0,0 @@
--- |
---   Copyright   :  (c) Sam Truzjan 2013
---   License     :  BSD3
---   Maintainer  :  pxqr.sta@gmail.com
---   Stability   :  experimental
---   Portability :  portable
---
---   For more info see <http://www.bittorrent.org/beps/bep_0010.html>
---
-{-# LANGUAGE DeriveDataTypeable #-}
-module Network.BitTorrent.Exchange.Message.Extended
-       (
-       ) where
-
-import Data.BEncode
-import Data.IntMap as IM
-import Data.Text
-import Data.Typeable
-import Network
-import Network.Socket
-
-import Network.BitTorrent.Core.PeerAddr
-
-
-type Extension = ()
-
-type ExtMap = IntMap Extension
-
-data ExtendedHandshake = H
-  { extMap  :: ExtMap
-  , port    :: Maybe PortNumber
-  , version :: Maybe Text -- TODO ClientInfo
-  , yourip  :: Maybe SockAddr
---  , ipv6 , ipv4
-
-    -- | The number of outstanding 'Request' messages this
-    -- client supports without dropping any.
-  , requestQueueLength :: Maybe Int
-  } deriving (Show, Typeable)
-
-instance BEncode ExtendedHandshake where
-  toBEncode H {..} = toDict $
-       "p" .=? port
-    .: endDict
-
-  fromBEncode = fromDict $ do
-    undefined
-
-data ExtendedMessage
-  = ExtendedHandshake
-    deriving (Show, Eq)