summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Onion
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/Onion')
-rw-r--r--src/Network/Tox/Onion/Handlers.hs16
-rw-r--r--src/Network/Tox/Onion/Transport.hs3
2 files changed, 0 insertions, 19 deletions
diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs
index f497a1bf..80a6ae3a 100644
--- a/src/Network/Tox/Onion/Handlers.hs
+++ b/src/Network/Tox/Onion/Handlers.hs
@@ -12,23 +12,9 @@ import qualified Network.QueryResponse as QR (Client)
12import Crypto.Tox 12import Crypto.Tox
13import qualified Data.Wrapper.PSQ as PSQ 13import qualified Data.Wrapper.PSQ as PSQ
14 ;import Data.Wrapper.PSQ (PSQ,pattern (:->)) 14 ;import Data.Wrapper.PSQ (PSQ,pattern (:->))
15#ifdef CRYPTONITE_BACKPORT
16import Crypto.Error.Types (CryptoFailable (..),
17 throwCryptoError)
18#else
19import Crypto.Error
20#endif
21import Control.Arrow 15import Control.Arrow
22 16
23import System.IO
24import qualified Data.ByteArray as BA
25import Data.Function 17import Data.Function
26import Data.Serialize as S
27import qualified Data.Wrapper.PSQInt as Int
28import Network.Kademlia
29import Network.Address (WantIP (..), ipFamily, testIdBit)
30import qualified Network.Kademlia.Routing as R
31import Control.TriadCommittee
32import qualified Data.MinMaxPSQ as MinMaxPSQ 18import qualified Data.MinMaxPSQ as MinMaxPSQ
33 ;import Data.MinMaxPSQ (MinMaxPSQ') 19 ;import Data.MinMaxPSQ (MinMaxPSQ')
34import Network.BitTorrent.DHT.Token as Token 20import Network.BitTorrent.DHT.Token as Token
@@ -50,8 +36,6 @@ import Data.IP hiding (fromSockAddr)
50import Data.IP 36import Data.IP
51#endif 37#endif
52import Data.Maybe 38import Data.Maybe
53import Data.Bits
54import Data.Ord
55import Data.Functor.Identity 39import Data.Functor.Identity
56import DPut 40import DPut
57 41
diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index 70714465..e2e136ae 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -62,7 +62,6 @@ import Control.Concurrent.STM
62import Control.Monad 62import Control.Monad
63import qualified Data.ByteString as B 63import qualified Data.ByteString as B
64 ;import Data.ByteString (ByteString) 64 ;import Data.ByteString (ByteString)
65import Data.Coerce
66import Data.Function 65import Data.Function
67import Data.Functor.Contravariant 66import Data.Functor.Contravariant
68import Data.Functor.Identity 67import Data.Functor.Identity
@@ -77,11 +76,9 @@ import Data.Serialize as S
77import Data.Type.Equality 76import Data.Type.Equality
78import Data.Typeable 77import Data.Typeable
79import Data.Word 78import Data.Word
80import Debug.Trace
81import GHC.Generics () 79import GHC.Generics ()
82import GHC.TypeLits 80import GHC.TypeLits
83import Network.Socket 81import Network.Socket
84import System.IO
85import qualified Text.ParserCombinators.ReadP as RP 82import qualified Text.ParserCombinators.ReadP as RP
86import Data.Hashable 83import Data.Hashable
87import DPut 84import DPut