From f5f854c8144dc29086928a94b2ea86cfae0d0557 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 22 Jun 2018 21:17:22 -0400
Subject: Removed redundant imports and other clean up.

---
 src/Network/Tox/Onion/Handlers.hs  | 16 ----------------
 src/Network/Tox/Onion/Transport.hs |  3 ---
 2 files changed, 19 deletions(-)

(limited to 'src/Network/Tox/Onion')

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)
 import Crypto.Tox
 import qualified Data.Wrapper.PSQ             as PSQ
          ;import Data.Wrapper.PSQ             (PSQ,pattern (:->))
-#ifdef CRYPTONITE_BACKPORT
-import Crypto.Error.Types                     (CryptoFailable (..),
-                                               throwCryptoError)
-#else
-import Crypto.Error
-#endif
 import Control.Arrow
 
-import System.IO
-import qualified Data.ByteArray               as BA
 import Data.Function
-import Data.Serialize as S
-import qualified Data.Wrapper.PSQInt as Int
-import Network.Kademlia
-import Network.Address               (WantIP (..), ipFamily, testIdBit)
-import qualified Network.Kademlia.Routing as R
-import Control.TriadCommittee
 import qualified Data.MinMaxPSQ               as MinMaxPSQ
          ;import Data.MinMaxPSQ               (MinMaxPSQ')
 import Network.BitTorrent.DHT.Token           as Token
@@ -50,8 +36,6 @@ import Data.IP hiding (fromSockAddr)
 import Data.IP
 #endif
 import Data.Maybe
-import Data.Bits
-import Data.Ord
 import Data.Functor.Identity
 import DPut
 
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
 import Control.Monad
 import qualified Data.ByteString    as B
          ;import Data.ByteString    (ByteString)
-import Data.Coerce
 import Data.Function
 import Data.Functor.Contravariant
 import Data.Functor.Identity
@@ -77,11 +76,9 @@ import Data.Serialize               as S
 import Data.Type.Equality
 import Data.Typeable
 import Data.Word
-import Debug.Trace
 import GHC.Generics                 ()
 import GHC.TypeLits
 import Network.Socket
-import System.IO
 import qualified Text.ParserCombinators.ReadP as RP
 import Data.Hashable
 import DPut
-- 
cgit v1.2.3