diff options
author | joe <joe@jerkface.net> | 2018-06-22 21:17:22 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-22 21:17:22 -0400 |
commit | f5f854c8144dc29086928a94b2ea86cfae0d0557 (patch) | |
tree | 5a7daccc1be66375edd35b238f348129f540b146 /src/Network/Tox/Crypto/Handlers.hs | |
parent | 6f040764654640730d3f832cf4e41174562718fb (diff) |
Removed redundant imports and other clean up.
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 73e5f686..282a7dce 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
@@ -9,20 +9,16 @@ module Network.Tox.Crypto.Handlers where | |||
9 | 9 | ||
10 | import Network.Tox.NodeId | 10 | import Network.Tox.NodeId |
11 | import Network.Tox.Crypto.Transport | 11 | import Network.Tox.Crypto.Transport |
12 | import Network.Tox.DHT.Transport (Cookie(..),CookieData(..), CookieRequest(..), NoSpam(..)) | 12 | import Network.Tox.DHT.Transport (Cookie(..), NoSpam(..)) |
13 | import Network.Tox.DHT.Handlers (Client, cookieRequest, createCookieSTM ) | ||
14 | import Crypto.Tox | 13 | import Crypto.Tox |
15 | import Control.Arrow | 14 | import Control.Arrow |
16 | import Control.Concurrent.STM | 15 | import Control.Concurrent.STM |
17 | import Control.Concurrent.STM.TMChan | 16 | import Control.Concurrent.STM.TMChan |
18 | import Network.Address | 17 | import Network.Address |
19 | import qualified Data.Map.Strict as Map | 18 | import qualified Data.Map.Strict as Map |
20 | import Crypto.Hash | ||
21 | import Control.Applicative | ||
22 | import Control.Monad | 19 | import Control.Monad |
23 | import Data.Time.Clock.POSIX | 20 | import Data.Time.Clock.POSIX |
24 | import qualified Data.ByteString as B | 21 | import qualified Data.ByteString as B |
25 | import System.IO | ||
26 | import Data.ByteString (ByteString) | 22 | import Data.ByteString (ByteString) |
27 | import Control.Lens | 23 | import Control.Lens |
28 | import Data.Function | 24 | import Data.Function |
@@ -39,10 +35,8 @@ import qualified Data.Set as Set | |||
39 | import qualified Data.Array.Unboxed as A | 35 | import qualified Data.Array.Unboxed as A |
40 | import SensibleDir | 36 | import SensibleDir |
41 | import System.FilePath | 37 | import System.FilePath |
42 | import System.IO.Temp | ||
43 | import System.Environment | 38 | import System.Environment |
44 | import System.Directory | 39 | import System.Directory |
45 | import System.Random -- for ping fuzz | ||
46 | #ifdef THREAD_DEBUG | 40 | #ifdef THREAD_DEBUG |
47 | import Control.Concurrent.Lifted.Instrument | 41 | import Control.Concurrent.Lifted.Instrument |
48 | #else | 42 | #else |
@@ -54,11 +48,9 @@ import qualified Data.IntMap.Strict as IntMap | |||
54 | import Control.Concurrent.Supply | 48 | import Control.Concurrent.Supply |
55 | import Data.InOrOut | 49 | import Data.InOrOut |
56 | import DPut | 50 | import DPut |
57 | import Debug.Trace | ||
58 | import Text.Printf | 51 | import Text.Printf |
59 | import Data.Bool | 52 | import Data.Bool |
60 | import Connection (Status(..), Policy(..)) | 53 | import Connection (Status(..), Policy(..)) |
61 | import Network.Tox.ContactInfo | ||
62 | import Network.Tox.Handshake | 54 | import Network.Tox.Handshake |
63 | 55 | ||
64 | -- | This type indicates the progress of a tox encrypted friend link | 56 | -- | This type indicates the progress of a tox encrypted friend link |