summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ToxToXMPP.hs1
-rw-r--r--src/Network/Tox/ContactInfo.hs1
-rw-r--r--src/Network/Tox/Crypto/Transport.hs1
3 files changed, 0 insertions, 3 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 2071ae9e..fdd088ac 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -71,7 +71,6 @@ import GHC.Conc (labelThread)
71#endif 71#endif
72import DPut 72import DPut
73import Nesting 73import Nesting
74import qualified Network.Tox.DHT.Handlers
75 74
76xmppToTox :: Conduit XML.Event IO Tox.CryptoMessage 75xmppToTox :: Conduit XML.Event IO Tox.CryptoMessage
77xmppToTox = doNestingXML $ do 76xmppToTox = doNestingXML $ do
diff --git a/src/Network/Tox/ContactInfo.hs b/src/Network/Tox/ContactInfo.hs
index 1970b782..5f144057 100644
--- a/src/Network/Tox/ContactInfo.hs
+++ b/src/Network/Tox/ContactInfo.hs
@@ -11,7 +11,6 @@ import Crypto.PubKey.Curve25519
11import qualified Data.HashMap.Strict as HashMap 11import qualified Data.HashMap.Strict as HashMap
12 ;import Data.HashMap.Strict (HashMap) 12 ;import Data.HashMap.Strict (HashMap)
13import Data.Maybe 13import Data.Maybe
14import Network.Socket
15import Network.Tox.DHT.Transport as DHT 14import Network.Tox.DHT.Transport as DHT
16import Network.Tox.NodeId (id2key) 15import Network.Tox.NodeId (id2key)
17import Network.Tox.Onion.Transport as Onion 16import Network.Tox.Onion.Transport as Onion
diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 54d96c34..c7fbfdc6 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -80,7 +80,6 @@ import Data.Serialize as S
80import Control.Arrow 80import Control.Arrow
81import DPut 81import DPut
82import Data.PacketQueue (toPNums) 82import Data.PacketQueue (toPNums)
83import Data.List
84 83
85showCryptoMsg :: Word32 -> CryptoMessage -> [Char] 84showCryptoMsg :: Word32 -> CryptoMessage -> [Char]
86showCryptoMsg seqno (UpToN PacketRequest bytes) = "UpToN PacketRequest --> " ++ show (toPNums seqno $ B.unpack bytes) 85showCryptoMsg seqno (UpToN PacketRequest bytes) = "UpToN PacketRequest --> " ++ show (toPNums seqno $ B.unpack bytes)