1 files changed, 4 insertions, 4 deletions

diff --git a/dht/src/Network/Tox/Crypto/Transport.hs b/dht/src/Network/Tox/Crypto/Transport.hs
index a18b550d..127b2dac 100644
--- a/dht/src/Network/Tox/Crypto/Transport.hs
+++ b/dht/src/Network/Tox/Crypto/Transport.hs
@@ -91,21 +91,21 @@ import GHC.TypeNats
 showCryptoMsg :: Word32 -> CryptoMessage -> [Char]
 showCryptoMsg _  msg = show msg
 
-parseCrypto :: (ByteString, SockAddr) -> Either (CryptoPacket Encrypted, SockAddr) (ByteString, SockAddr)
+parseCrypto :: (ByteString, addr ) -> Either (CryptoPacket Encrypted, addr) (ByteString, addr)
 parseCrypto (bbs,saddr) = case B.uncons bbs of
     Just (0x1b,bs) -> case runGet get bs of
         Right pkt -> Left (pkt, saddr) -- Successful parse, handle this packet.
         Left  _   -> Right (bs,saddr)  -- Failed parse, strip first byte and pass it on.
     _             -> Right (bbs,saddr) -- Type-code mismatch, pass it on.
 
-encodeCrypto :: (CryptoPacket Encrypted, SockAddr) -> Maybe (ByteString, SockAddr)
+encodeCrypto :: (CryptoPacket Encrypted, addr) -> Maybe (ByteString, addr)
 encodeCrypto (x,saddr) = Just (B.cons 0x1b (runPut $ put x),saddr)
 
-parseHandshakes :: ByteString -> SockAddr -> Either String (Handshake Encrypted, SockAddr)
+parseHandshakes :: ByteString -> addr -> Either String (Handshake Encrypted, addr)
 parseHandshakes (B.uncons -> Just (0x1a,pkt)) saddr = left ("parseHandshakes: "++) $ (,saddr) <$> runGet get pkt
 parseHandshakes bs                            _     = Left $ "parseHandshakes_: " ++ show (B.unpack $ B.take 1 bs)
 
-encodeHandshakes :: Handshake Encrypted -> SockAddr -> (ByteString, SockAddr)
+encodeHandshakes :: Handshake Encrypted -> addr -> (ByteString, addr)
 encodeHandshakes x saddr = (B.cons 0x1a (runPut $ put x),saddr)
 
 {-