1 files changed, 0 insertions, 14 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 2c998006..0588da4b 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -9,7 +9,6 @@ module Network.Tox.Crypto.Transport
     , encodeCrypto
     , parseHandshakes
     , encodeHandshakes
-    , NetCrypto(..)
     , CryptoData(..)
     , CryptoMessage(..)
     , MessageName(..)
@@ -77,10 +76,6 @@ import Data.Serialize as S
 import Control.Arrow
 
 
-data NetCrypto
-    = NetHandshake (Handshake Encrypted)
-    | NetCrypto (CryptoPacket Encrypted)
-
 parseCrypto :: (ByteString, SockAddr) -> Either (CryptoPacket Encrypted, SockAddr) (ByteString, SockAddr)
 parseCrypto ((B.uncons -> Just (0x1b,pkt)),saddr) = either (\_ -> Right (pkt,saddr))
                                                            (\x -> Left  (x  ,saddr))
@@ -98,15 +93,6 @@ encodeHandshakes :: Handshake Encrypted -> SockAddr -> (ByteString, SockAddr)
 encodeHandshakes x saddr = (B.cons 0x1a (runPut $ put x),saddr)
 
 
-parseNetCrypto :: ByteString -> SockAddr -> Either String (NetCrypto, SockAddr)
-parseNetCrypto (B.uncons -> Just (0x1a,pkt)) saddr = left ("parseNetCrypto: "++) $ (,saddr) . NetHandshake <$> runGet get pkt
-parseNetCrypto (B.uncons -> Just (0x1b,pkt)) saddr = left ("parseNetCrypto: "++) $ (,saddr) . NetCrypto    <$> runGet get pkt
-parseNetCrypto _ _ = Left "parseNetCrypto: ?"
-
-encodeNetCrypto :: NetCrypto -> SockAddr -> (ByteString, SockAddr)
-encodeNetCrypto (NetHandshake x)  saddr = (B.cons 0x1a (runPut $ put x),saddr)
-encodeNetCrypto (NetCrypto x)     saddr = (B.cons 0x1b (runPut $ put x),saddr)
-
 data Handshake (f :: * -> *) = Handshake
     { -- The cookie is a cookie obtained by
       -- sending a cookie request packet to the peer and getting a cookie